Bug#1020164: clojure-mode: FTBFS: make: *** [debian/rules:4: build] Error 25
Source: clojure-mode
Version: 5.10.0-3
Severity: serious
Justification: FTBFS
Tags: bookworm sid ftbfs
User: lucas@debian.org
Usertags: ftbfs-20220917 ftbfs-bookworm
Hi,
During a rebuild of all packages in sid, your package failed to build
on amd64.
Relevant part (hopefully):
> debian/rules build
> dh build --with elpa
> dh_update_autotools_config
> dh_autoreconf
> dh_auto_configure
> dh_elpa_test
> emacs -batch -Q -l package --eval "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa\")" --eval "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa-src\")" -f package-initialize -L . -L test --eval "(load-file \"test/test-helper.el\")" -l test/test-helper.el -l test/clojure-mode-indentation-test.el -l test/clojure-mode-sexp-test.el -l test/clojure-mode-font-lock-test.el -l test/clojure-mode-syntax-test.el -l test/clojure-mode-util-test.el --eval \(ert-run-tests-batch-and-exit\)
> Loading /<<PKGBUILDDIR>>/test/test-helper.el (source)...
> Running tests on Emacs 28.1
> Running tests on Emacs 28.1
> clojure-mode.el: Warning: ‘project-roots’ is an obsolete generic function (as of 0.3.0); use ‘project-root’ instead.
> Running 106 tests (2022-09-17 20:05:39+0000, selector ‘t’)
> Indenting region...
> Indenting region...done
> passed 1/106 clojure-align-remove-extra-commas (0.019116 sec)
> passed 2/106 clojure-allowed-collection-tags (0.000432 sec)
> passed 3/106 clojure-find-ns-test (0.000180 sec)
> passed 4/106 clojure-mode-syntax-table/camelcase (0.004129 sec)
> passed 5/106 clojure-mode-syntax-table/characters (0.001091 sec)
> passed 6/106 clojure-mode-syntax-table/comment-macros (0.000540 sec)
> passed 7/106 clojure-mode-syntax-table/custom-def-with-special-chars1 (0.000215 sec)
> passed 8/106 clojure-mode-syntax-table/custom-def-with-special-chars2 (0.000273 sec)
> passed 9/106 clojure-mode-syntax-table/custom-def-with-special-chars3 (0.000227 sec)
> passed 10/106 clojure-mode-syntax-table/dynamic-var (0.001293 sec)
> passed 11/106 clojure-mode-syntax-table/false (0.001223 sec)
> passed 12/106 clojure-mode-syntax-table/fn (0.000369 sec)
> passed 13/106 clojure-mode-syntax-table/fontify-let-when-while-type-forms (0.000565 sec)
> passed 14/106 clojure-mode-syntax-table/function-def (0.003711 sec)
> passed 15/106 clojure-mode-syntax-table/keyword-allowed-chars (0.000220 sec)
> passed 16/106 clojure-mode-syntax-table/keyword-disallowed-chars (0.025015 sec)
> passed 17/106 clojure-mode-syntax-table/keyword-meta (0.000216 sec)
> passed 18/106 clojure-mode-syntax-table/kw-camelcase (0.003733 sec)
> passed 19/106 clojure-mode-syntax-table/kw-mixedcase (0.002758 sec)
> passed 20/106 clojure-mode-syntax-table/kw-namespaced (0.020145 sec)
> passed 21/106 clojure-mode-syntax-table/kw-oneword (0.002759 sec)
> passed 22/106 clojure-mode-syntax-table/kw-segment (0.002650 sec)
> passed 23/106 clojure-mode-syntax-table/kw-verycomplex (0.023073 sec)
> passed 24/106 clojure-mode-syntax-table/lambda-params (0.000244 sec)
> passed 25/106 clojure-mode-syntax-table/mixedcase (0.002946 sec)
> passed 26/106 clojure-mode-syntax-table/namespace (0.019926 sec)
> passed 27/106 clojure-mode-syntax-table/namespaced-def (0.000402 sec)
> passed 28/106 clojure-mode-syntax-table/nil (0.000319 sec)
> passed 29/106 clojure-mode-syntax-table/oneword (0.003017 sec)
> passed 30/106 clojure-mode-syntax-table/refer-ns (0.000332 sec)
> passed 31/106 clojure-mode-syntax-table/segment (0.002983 sec)
> passed 32/106 clojure-mode-syntax-table/stuff-in-backticks (0.020070 sec)
> passed 33/106 clojure-mode-syntax-table/true (0.000233 sec)
> passed 34/106 clojure-mode-syntax-table/type-def (0.000222 sec)
> passed 35/106 clojure-mode-syntax-table/variable-def (0.000356 sec)
> passed 36/106 clojure-mode-syntax-table/verycomplex (0.003746 sec)
> passed 37/106 clojure-namespace-name-regex-test (0.000155 sec)
> passed 38/106 clojure-syntax-prefixed-symbols (0.001469 sec)
> passed 39/106 clojure-syntax-skip-prefixes (0.000188 sec)
> Test dont-hang-on-eob backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 6) (method . 1)
> funcall((closure ((containing-form-column . 0) (last-sexp . 6) (meth
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(12 (1 1 6 nil nil nil 0 nil nil (1) nil))
> calculate-lisp-indent((1 1 6 nil nil nil 0 nil nil (1) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> newline-and-indent()
> (progn (newline-and-indent) t)
> (unwind-protect (progn (newline-and-indent) t) (cancel-timer -with-t
> (let* ((-with-timeout-timer- (run-with-timer 2 nil #'(lambda nil (th
> (catch 'timeout (let* ((-with-timeout-timer- (run-with-timer 2 nil #
> (let ((-with-timeout-value- (catch 'timeout (let* ((-with-timeout-ti
> (setq value-9 (let ((-with-timeout-value- (catch 'timeout (let* ((-w
> (unwind-protect (setq value-9 (let ((-with-timeout-value- (catch 'ti
> (if (unwind-protect (setq value-9 (let ((-with-timeout-value- (catch
> (let (form-description-10) (if (unwind-protect (setq value-9 (let ((
> (let ((value-9 (gensym "ert-form-evaluation-aborted-"))) (let (form-
> (progn (insert "(let [a b]") (clojure-mode) (goto-char (point-max))
> (unwind-protect (progn (insert "(let [a b]") (clojure-mode) (goto-ch
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (let ((lexical-binding t)) (let ((temp-buffer (generate-new-buffer "
> (closure (t) nil (let ((lexical-binding t)) (let ((temp-buffer (gene
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name dont-hang-on-eob :documentation nil :
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test dont-hang-on-eob condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 40/106 dont-hang-on-eob (0.000385 sec)
> passed 41/106 expected-ns (0.000127 sec)
> passed 42/106 expected-ns-without-argument (0.000281 sec)
> passed 43/106 indentation/backtracking-with-aliases (0.000347 sec)
> Test indentation/cond-indentation backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 3) (method . 0)
> funcall((closure ((containing-form-column . 0) (last-sexp . 3) (meth
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(8 (1 2 3 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 3 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> (progn (insert "\n(cond\n|x)") (goto-char (point-min)) (search-forwa
> (unwind-protect (progn (insert "\n(cond\n|x)") (goto-char (point-min
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (let* ((after "\n(cond\n |x)") (clojure-indent-style 'always-align)
> (let ((lexical-binding t)) (let* ((after "\n(cond\n |x)") (clojure-
> (closure (t) nil (let ((lexical-binding t)) (let* ((after "\n(cond\n
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name indentation/cond-indentation :documen
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test indentation/cond-indentation condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 44/106 indentation/cond-indentation (0.000299 sec)
> passed 45/106 indentation/doc-strings-with-additional-indent-specified (0.000296 sec)
> passed 46/106 indentation/doc-strings-with-correct-indent-specified (0.000200 sec)
> passed 47/106 indentation/doc-strings-without-indent-specified (0.000158 sec)
> Test indentation/fixed-normal-indent backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 24) (method . 0)
> funcall((closure ((containing-form-column . 0) (last-sexp . 24) (met
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(26 (1 1 24 nil nil nil 0 nil nil (1) nil))
> calculate-lisp-indent((1 1 24 nil nil nil 0 nil nil (1) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> (progn (insert "(cond\n (or 1\n 2) 3\n|:else 4)") (goto-char (
> (unwind-protect (progn (insert "(cond\n (or 1\n 2) 3\n|:else 4
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (let* ((after "(cond\n (or 1\n 2) 3\n |:else 4)") (clojure-in
> (let ((lexical-binding t)) (let* ((after "(cond\n (or 1\n 2) 3
> (closure (t) nil (let ((lexical-binding t)) (let* ((after "(cond\n
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name indentation/fixed-normal-indent :docu
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test indentation/fixed-normal-indent condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 48/106 indentation/fixed-normal-indent (0.000285 sec)
> passed 49/106 indentation/fixed-normal-indent-2 (0.000361 sec)
> Test indentation/form-with-metadata backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 12) (method . 1)
> funcall((closure ((containing-form-column . 0) (last-sexp . 12) (met
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(21 (1 2 12 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 12 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> (progn (insert "\n(ns ^:doc app.core\n|(:gen-class))") (goto-char (p
> (unwind-protect (progn (insert "\n(ns ^:doc app.core\n|(:gen-class))
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (let* ((after "\n(ns ^:doc app.core\n |(:gen-class))") (clojure-ind
> (let ((lexical-binding t)) (let* ((after "\n(ns ^:doc app.core\n |(
> (closure (t) nil (let ((lexical-binding t)) (let* ((after "\n(ns ^:d
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name indentation/form-with-metadata :docum
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test indentation/form-with-metadata condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 50/106 indentation/form-with-metadata (0.000321 sec)
> passed 51/106 indentation/multiline-sexps (0.000230 sec)
> passed 52/106 indentation/no-indentation-at-top-level (0.000149 sec)
> passed 53/106 indentation/reader-conditionals (0.000148 sec)
> passed 54/106 indentation/symbol-with-lambda (0.000180 sec)
> Test indentation/symbol-with-ns backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 12) (method . 1)
> funcall((closure ((containing-form-column . 0) (last-sexp . 12) (met
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(16 (1 2 12 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 12 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> (progn (insert "\n(ala/bala top\n|one)") (goto-char (point-min)) (se
> (unwind-protect (progn (insert "\n(ala/bala top\n|one)") (goto-char
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (let* ((after "\n(ala/bala top\n |one)") (clojure-indent-style 'alw
> (let ((lexical-binding t)) (let* ((after "\n(ala/bala top\n |one)")
> (closure (t) nil (let ((lexical-binding t)) (let* ((after "\n(ala/ba
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name indentation/symbol-with-ns :documenta
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test indentation/symbol-with-ns condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 55/106 indentation/symbol-with-ns (0.000298 sec)
> Test indentation/symbol-without-ns backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 3) (method . 0)
> funcall((closure ((containing-form-column . 0) (last-sexp . 3) (meth
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(8 (1 2 3 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 3 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> (progn (insert "\n(bala\n|one)") (goto-char (point-min)) (search-for
> (unwind-protect (progn (insert "\n(bala\n|one)") (goto-char (point-m
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (let* ((after "\n(bala\n |one)") (clojure-indent-style 'always-alig
> (let ((lexical-binding t)) (let* ((after "\n(bala\n |one)") (clojur
> (closure (t) nil (let ((lexical-binding t)) (let* ((after "\n(bala\n
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name indentation/symbol-without-ns :docume
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test indentation/symbol-without-ns condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 56/106 indentation/symbol-without-ns (0.000377 sec)
> passed 57/106 indentation/threading-with-expression-on-first-line (0.000327 sec)
> passed 58/106 indentation/threading-with-expression-on-second-line (0.000221 sec)
> passed 59/106 non-function-form (0.001633 sec)
> passed 60/106 project-relative-path (0.000111 sec)
> Indenting region...
> Indenting region...done
> passed 61/106 reader-conditional-alignment-disabled-by-default (0.000660 sec)
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> passed 62/106 test-align-basic (0.004979 sec)
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> passed 63/106 test-align-basic-reversed (0.025120 sec)
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> passed 64/106 test-align-blank-line (0.001739 sec)
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> passed 65/106 test-align-end-is-a-marker (0.001214 sec)
> Indenting region...
> Test test-align-incomplete-sexp backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 11) (method . 0)
> funcall((closure ((containing-form-column . 0) (last-sexp . 11) (met
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(13 (1 2 11 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 11 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> indent-region-line-by-line(1 24)
> indent-region(1 24)
> (let ((indent-region-function nil)) (indent-region beg end))
> (prog1 (let ((indent-region-function nil)) (indent-region beg end))
> clojure-indent-region(1 24)
> indent-region(1 24)
> (progn (clojure-mode) (insert "\n" "(cond aa b\n casodkas )") (inden
> (unwind-protect (progn (clojure-mode) (insert "\n" "(cond aa b\n cas
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (let ((clojure-align-forms-automatically t) (clojure-align-reader-co
> (let ((lexical-binding t)) (let ((clojure-align-forms-automatically
> (closure (t) nil (let ((lexical-binding t)) (let ((clojure-align-for
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name test-align-incomplete-sexp :documenta
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test test-align-incomplete-sexp condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 66/106 test-align-incomplete-sexp (0.000367 sec)
> Indenting region...
> Test test-align-multiple-words backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 16) (method . 0)
> funcall((closure ((containing-form-column . 0) (last-sexp . 16) (met
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(21 (1 2 16 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 16 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> indent-region-line-by-line(1 68)
> indent-region(1 68)
> (let ((indent-region-function nil)) (indent-region beg end))
> (prog1 (let ((indent-region-function nil)) (indent-region beg end))
> clojure-indent-region(1 68)
> indent-region(1 68)
> (progn (clojure-mode) (insert "\n" "(cond this is just\n a test of\n
> (unwind-protect (progn (clojure-mode) (insert "\n" "(cond this is ju
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (let ((clojure-align-forms-automatically t) (clojure-align-reader-co
> (let ((lexical-binding t)) (let ((clojure-align-forms-automatically
> (closure (t) nil (let ((lexical-binding t)) (let ((clojure-align-for
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name test-align-multiple-words :documentat
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test test-align-multiple-words condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 67/106 test-align-multiple-words (0.000486 sec)
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> passed 68/106 test-align-nested-maps (0.001054 sec)
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> passed 69/106 test-align-reader-conditional (0.000657 sec)
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> passed 70/106 test-align-reader-conditional-splicing (0.000679 sec)
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> passed 71/106 test-align-trailing-commas (0.001165 sec)
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> passed 72/106 test-backtracking-align-arguments (0.000756 sec)
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> passed 73/106 test-backtracking-always-indent (0.000654 sec)
> Indenting region...
> Test test-backtracking-closing-paren backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 6) (method . 1)
> funcall((closure ((containing-form-column . 0) (last-sexp . 6) (meth
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(9 (1 2 6 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 6 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> indent-region-line-by-line(1 25)
> indent-region(1 25)
> (let ((indent-region-function nil)) (indent-region beg end))
> (prog1 (let ((indent-region-function nil)) (indent-region beg end))
> clojure-indent-region(1 25)
> indent-region(1 25)
> (let ((clojure-indent-style 'always-align)) (indent-region (point-mi
> (progn (clojure-mode) (insert "\n" "(ns ca\n (:gen-class)\n )") (let
> (unwind-protect (progn (clojure-mode) (insert "\n" "(ns ca\n (:gen-c
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-
> (let ((lexical-binding t)) (progn (let ((temp-buffer (generate-new-b
> (closure (t) nil (let ((lexical-binding t)) (progn (let ((temp-buffe
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name test-backtracking-closing-paren :docu
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test test-backtracking-closing-paren condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 74/106 test-backtracking-closing-paren (0.000348 sec)
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> passed 75/106 test-backtracking-default-is-not-a-define (0.000747 sec)
> Indenting region...
> Test test-backtracking-definterface backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 16) (method . 1)
> funcall((closure ((containing-form-column . 0) (last-sexp . 16) (met
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(21 (1 2 16 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 16 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> indent-region-line-by-line(1 104)
> indent-region(1 104)
> (let ((indent-region-function nil)) (indent-region beg end))
> (prog1 (let ((indent-region-function nil)) (indent-region beg end))
> clojure-indent-region(1 104)
> indent-region(1 104)
> (let ((clojure-indent-style 'always-align)) (indent-region (point-mi
> (progn (clojure-mode) (insert "\n" "(definterface IFoo\n (foo [this]
> (unwind-protect (progn (clojure-mode) (insert "\n" "(definterface IF
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-
> (let ((lexical-binding t)) (progn (let ((temp-buffer (generate-new-b
> (closure (t) nil (let ((lexical-binding t)) (progn (let ((temp-buffe
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name test-backtracking-definterface :docum
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test test-backtracking-definterface condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 76/106 test-backtracking-definterface (0.000322 sec)
> Indenting region...
> Test test-backtracking-defprotocol backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 15) (method . 1)
> funcall((closure ((containing-form-column . 0) (last-sexp . 15) (met
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(20 (1 2 15 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 15 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> indent-region-line-by-line(1 103)
> indent-region(1 103)
> (let ((indent-region-function nil)) (indent-region beg end))
> (prog1 (let ((indent-region-function nil)) (indent-region beg end))
> clojure-indent-region(1 103)
> indent-region(1 103)
> (let ((clojure-indent-style 'always-align)) (indent-region (point-mi
> (progn (clojure-mode) (insert "\n" "(defprotocol IFoo\n (foo [this]\
> (unwind-protect (progn (clojure-mode) (insert "\n" "(defprotocol IFo
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-
> (let ((lexical-binding t)) (progn (let ((temp-buffer (generate-new-b
> (closure (t) nil (let ((lexical-binding t)) (progn (let ((temp-buffe
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name test-backtracking-defprotocol :docume
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test test-backtracking-defprotocol condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 77/106 test-backtracking-defprotocol (0.000509 sec)
> Indenting region...
> Test test-backtracking-defrecord backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 13) (method . 2)
> funcall((closure ((containing-form-column . 0) (last-sexp . 13) (met
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(32 (1 2 13 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 13 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> indent-region-line-by-line(1 110)
> indent-region(1 110)
> (let ((indent-region-function nil)) (indent-region beg end))
> (prog1 (let ((indent-region-function nil)) (indent-region beg end))
> clojure-indent-region(1 110)
> indent-region(1 110)
> (let ((clojure-indent-style 'always-align)) (indent-region (point-mi
> (progn (clojure-mode) (insert "\n" "(defrecord TheNameOfTheRecord\n
> (unwind-protect (progn (clojure-mode) (insert "\n" "(defrecord TheNa
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-
> (let ((lexical-binding t)) (progn (let ((temp-buffer (generate-new-b
> (closure (t) nil (let ((lexical-binding t)) (progn (let ((temp-buffe
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name test-backtracking-defrecord :document
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test test-backtracking-defrecord condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 78/106 test-backtracking-defrecord (0.000445 sec)
> Indenting region...
> Test test-backtracking-defrecord-2 backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 32) (method . 2)
> funcall((closure ((containing-form-column . 0) (last-sexp . 32) (met
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(62 (1 2 32 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 32 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> indent-region-line-by-line(1 108)
> indent-region(1 108)
> (let ((indent-region-function nil)) (indent-region beg end))
> (prog1 (let ((indent-region-function nil)) (indent-region beg end))
> clojure-indent-region(1 108)
> indent-region(1 108)
> (let ((clojure-indent-style 'always-align)) (indent-region (point-mi
> (progn (clojure-mode) (insert "\n" "(defrecord TheNameOfTheRecord [a
> (unwind-protect (progn (clojure-mode) (insert "\n" "(defrecord TheNa
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-
> (let ((lexical-binding t)) (progn (let ((temp-buffer (generate-new-b
> (closure (t) nil (let ((lexical-binding t)) (progn (let ((temp-buffe
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name test-backtracking-defrecord-2 :docume
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test test-backtracking-defrecord-2 condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 79/106 test-backtracking-defrecord-2 (0.000498 sec)
> Indenting region...
> Test test-backtracking-defrecord-allow-multiarity backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 20) (method . 2)
> funcall((closure ((containing-form-column . 0) (last-sexp . 20) (met
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(23 (1 2 20 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 20 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> indent-region-line-by-line(1 104)
> indent-region(1 104)
> (let ((indent-region-function nil)) (indent-region beg end))
> (prog1 (let ((indent-region-function nil)) (indent-region beg end))
> clojure-indent-region(1 104)
> indent-region(1 104)
> (let ((clojure-indent-style 'always-align)) (indent-region (point-mi
> (progn (clojure-mode) (insert "\n" "(defrecord Banana []\n Fruit\n (
> (unwind-protect (progn (clojure-mode) (insert "\n" "(defrecord Banan
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-
> (let ((lexical-binding t)) (progn (let ((temp-buffer (generate-new-b
> (closure (t) nil (let ((lexical-binding t)) (progn (let ((temp-buffe
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name test-backtracking-defrecord-allow-mul
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test test-backtracking-defrecord-allow-multiarity condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 80/106 test-backtracking-defrecord-allow-multiarity (0.000487 sec)
> Indenting region...
> Test test-backtracking-deftype-allow-multiarity backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 18) (method . 2)
> funcall((closure ((containing-form-column . 0) (last-sexp . 18) (met
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(21 (1 2 18 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 18 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> indent-region-line-by-line(1 102)
> indent-region(1 102)
> (let ((indent-region-function nil)) (indent-region beg end))
> (prog1 (let ((indent-region-function nil)) (indent-region beg end))
> clojure-indent-region(1 102)
> indent-region(1 102)
> (let ((clojure-indent-style 'always-align)) (indent-region (point-mi
> (progn (clojure-mode) (insert "\n" "(deftype Banana []\n Fruit\n (su
> (unwind-protect (progn (clojure-mode) (insert "\n" "(deftype Banana
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-
> (let ((lexical-binding t)) (progn (let ((temp-buffer (generate-new-b
> (closure (t) nil (let ((lexical-binding t)) (progn (let ((temp-buffe
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name test-backtracking-deftype-allow-multi
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test test-backtracking-deftype-allow-multiarity condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 81/106 test-backtracking-deftype-allow-multiarity (0.000495 sec)
> Indenting region...
> Test test-backtracking-empty-close-paren backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 7) (method . 1)
> funcall((closure ((containing-form-column . 0) (last-sexp . 7) (meth
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(11 (1 2 7 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 7 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> indent-region-line-by-line(1 13)
> indent-region(1 13)
> (let ((indent-region-function nil)) (indent-region beg end))
> (prog1 (let ((indent-region-function nil)) (indent-region beg end))
> clojure-indent-region(1 13)
> indent-region(1 13)
> (let ((clojure-indent-style 'always-align)) (indent-region (point-mi
> (progn (clojure-mode) (insert "\n" "(let [x]\n )") (let ((clojure-in
> (unwind-protect (progn (clojure-mode) (insert "\n" "(let [x]\n )") (
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-
> (let ((lexical-binding t)) (progn (let ((temp-buffer (generate-new-b
> (closure (t) nil (let ((lexical-binding t)) (progn (let ((temp-buffe
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name test-backtracking-empty-close-paren :
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test test-backtracking-empty-close-paren condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 82/106 test-backtracking-empty-close-paren (0.000497 sec)
> Indenting region...
> Test test-backtracking-extend-type-allow-multiarity backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 15) (method . 1)
> funcall((closure ((containing-form-column . 0) (last-sexp . 15) (met
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(22 (1 2 15 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 15 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> indent-region-line-by-line(1 103)
> indent-region(1 103)
> (let ((indent-region-function nil)) (indent-region beg end))
> (prog1 (let ((indent-region-function nil)) (indent-region beg end))
> clojure-indent-region(1 103)
> indent-region(1 103)
> (let ((clojure-indent-style 'always-align)) (indent-region (point-mi
> (progn (clojure-mode) (insert "\n" "(extend-type Banana\n Fruit\n (s
> (unwind-protect (progn (clojure-mode) (insert "\n" "(extend-type Ban
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-
> (let ((lexical-binding t)) (progn (let ((temp-buffer (generate-new-b
> (closure (t) nil (let ((lexical-binding t)) (progn (let ((temp-buffe
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name test-backtracking-extend-type-allow-m
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test test-backtracking-extend-type-allow-multiarity condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 83/106 test-backtracking-extend-type-allow-multiarity (0.000486 sec)
> Indenting region...
> Test test-backtracking-function-spec backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 8) (method . 1)
> funcall((closure ((containing-form-column . 0) (last-sexp . 8) (meth
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(11 (1 2 8 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 8 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> indent-region-line-by-line(1 36)
> indent-region(1 36)
> (let ((indent-region-function nil)) (indent-region beg end))
> (prog1 (let ((indent-region-function nil)) (indent-region beg end))
> clojure-indent-region(1 36)
> indent-region(1 36)
> (let ((clojure-indent-style 'always-align)) (indent-region (point-mi
> (progn (clojure-mode) (insert "\n" "(when me\n (test-cond\n x\n 1\n
> (unwind-protect (progn (clojure-mode) (insert "\n" "(when me\n (test
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-
> (let ((lexical-binding t)) (progn (let ((temp-buffer (generate-new-b
> (closure (t) nil (let ((lexical-binding t)) (progn (let ((temp-buffe
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name test-backtracking-function-spec :docu
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test test-backtracking-function-spec condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 84/106 test-backtracking-function-spec (0.000513 sec)
> Indenting region...
> Test test-backtracking-let-when-while-forms backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 13) (method . 1)
> funcall((closure ((containing-form-column . 0) (last-sexp . 13) (met
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(19 (1 2 13 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 13 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> indent-region-line-by-line(1 23)
> indent-region(1 23)
> (let ((indent-region-function nil)) (indent-region beg end))
> (prog1 (let ((indent-region-function nil)) (indent-region beg end))
> clojure-indent-region(1 23)
> indent-region(1 23)
> (let ((clojure-indent-style 'always-align)) (indent-region (point-mi
> (progn (clojure-mode) (insert "\n" "(let-alist [x 1]\n ())") (let ((
> (unwind-protect (progn (clojure-mode) (insert "\n" "(let-alist [x 1]
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-
> (let ((lexical-binding t)) (progn (let ((temp-buffer (generate-new-b
> (closure (t) nil (let ((lexical-binding t)) (progn (let ((temp-buffe
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name test-backtracking-let-when-while-form
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test test-backtracking-let-when-while-forms condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 85/106 test-backtracking-let-when-while-forms (0.000557 sec)
> Indenting region...
> Test test-backtracking-letfn backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 9) (method . 1)
> funcall((closure ((containing-form-column . 0) (last-sexp . 9) (meth
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(71 (1 2 9 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 9 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> indent-region-line-by-line(1 63)
> indent-region(1 63)
> (let ((indent-region-function nil)) (indent-region beg end))
> (prog1 (let ((indent-region-function nil)) (indent-region beg end))
> clojure-indent-region(1 63)
> indent-region(1 63)
> (let ((clojure-indent-style 'always-align)) (indent-region (point-mi
> (progn (clojure-mode) (insert "\n" "(letfn [(f [x]\n (* x 2))\n (f [
> (unwind-protect (progn (clojure-mode) (insert "\n" "(letfn [(f [x]\n
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-
> (let ((lexical-binding t)) (progn (let ((temp-buffer (generate-new-b
> (closure (t) nil (let ((lexical-binding t)) (progn (let ((temp-buffe
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name test-backtracking-letfn :documentatio
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test test-backtracking-letfn condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 86/106 test-backtracking-letfn (0.000662 sec)
> Indenting region...
> Indenting region...done
> passed 87/106 test-backtracking-non-symbol-at-start (0.000351 sec)
> Indenting region...
> Indenting region...done
> passed 88/106 test-backtracking-non-symbol-at-start-2 (0.000265 sec)
> Indenting region...
> Test test-backtracking-proxy backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 18) (method . 2)
> funcall((closure ((containing-form-column . 0) (last-sexp . 18) (met
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(21 (1 2 18 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 18 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> indent-region-line-by-line(1 275)
> indent-region(1 275)
> (let ((indent-region-function nil)) (indent-region beg end))
> (prog1 (let ((indent-region-function nil)) (indent-region beg end))
> clojure-indent-region(1 275)
> indent-region(1 275)
> (let ((clojure-indent-style 'always-align)) (indent-region (point-mi
> (progn (clojure-mode) (insert "\n" "(proxy [Writer] []\n (close [] (
> (unwind-protect (progn (clojure-mode) (insert "\n" "(proxy [Writer]
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-
> (let ((lexical-binding t)) (progn (let ((temp-buffer (generate-new-b
> (closure (t) nil (let ((lexical-binding t)) (progn (let ((temp-buffe
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name test-backtracking-proxy :documentatio
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test test-backtracking-proxy condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 89/106 test-backtracking-proxy (0.000428 sec)
> Indenting region...
> Indenting region...done
> passed 90/106 test-backtracking-reader-conditionals (0.000356 sec)
> Indenting region...
> Test test-backtracking-reify backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 2) (last-sexp . 21) (method . 1)
> funcall((closure ((containing-form-column . 2) (last-sexp . 21) (met
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(25 (2 18 21 nil nil nil 1 nil nil (2 18) nil
> calculate-lisp-indent((2 18 21 nil nil nil 1 nil nil (2 18) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> indent-region-line-by-line(1 28)
> indent-region(1 28)
> (let ((indent-region-function nil)) (indent-region beg end))
> (prog1 (let ((indent-region-function nil)) (indent-region beg end))
> clojure-indent-region(1 28)
> indent-region(1 28)
> (let ((clojure-indent-style 'always-align)) (indent-region (point-mi
> (progn (clojure-mode) (insert "\n" "(reify Object\n (x [_]\n 1))") (
> (unwind-protect (progn (clojure-mode) (insert "\n" "(reify Object\n
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-
> (let ((lexical-binding t)) (progn (let ((temp-buffer (generate-new-b
> (closure (t) nil (let ((lexical-binding t)) (progn (let ((temp-buffe
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name test-backtracking-reify :documentatio
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test test-backtracking-reify condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 91/106 test-backtracking-reify (0.000463 sec)
> Indenting region...
> Test test-backtracking-specify backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 11) (method . 1)
> funcall((closure ((containing-form-column . 0) (last-sexp . 11) (met
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(15 (1 2 11 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 11 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> indent-region-line-by-line(1 208)
> indent-region(1 208)
> (let ((indent-region-function nil)) (indent-region beg end))
> (prog1 (let ((indent-region-function nil)) (indent-region beg end))
> clojure-indent-region(1 208)
> indent-region(1 208)
> (let ((clojure-indent-style 'always-align)) (indent-region (point-mi
> (progn (clojure-mode) (insert "\n" "(specify obj\n ISwap\n (-swap!\n
> (unwind-protect (progn (clojure-mode) (insert "\n" "(specify obj\n I
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-
> (let ((lexical-binding t)) (progn (let ((temp-buffer (generate-new-b
> (closure (t) nil (let ((lexical-binding t)) (progn (let ((temp-buffe
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name test-backtracking-specify :documentat
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test test-backtracking-specify condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 92/106 test-backtracking-specify (0.000540 sec)
> Indenting region...
> Test test-backtracking-specify! backtrace:
> 1+(nil)
> (= pos (1+ method))
> (cond ((= pos (1+ method)) (+ lisp-body-indent containing-form-colum
> (let ((pos -1)) (condition-case nil (while (and (<= (point) indent-p
> (closure ((containing-form-column . 0) (last-sexp . 12) (method . 1)
> funcall((closure ((containing-form-column . 0) (last-sexp . 12) (met
> (cond ((integerp method) (funcall pcase-0 nil)) ((consp method) (let
> (let* ((pcase-0 #'(lambda (method) (let ((pos -1)) (condition-case n
> (let ((method (clojure--find-indent-spec)) (last-sexp calculate-lisp
> (if (clojure--not-function-form-p) (1+ (current-column)) (forward-ch
> clojure-indent-function(16 (1 2 12 nil nil nil 0 nil nil (2) nil))
> calculate-lisp-indent((1 2 12 nil nil nil 0 nil nil (2) nil))
> lisp-indent-line()
> (if (clojure-in-docstring-p) (save-excursion (beginning-of-line) (if
> clojure-indent-line()
> indent-according-to-mode()
> indent-region-line-by-line(1 209)
> indent-region(1 209)
> (let ((indent-region-function nil)) (indent-region beg end))
> (prog1 (let ((indent-region-function nil)) (indent-region beg end))
> clojure-indent-region(1 209)
> indent-region(1 209)
> (let ((clojure-indent-style 'always-align)) (indent-region (point-mi
> (progn (clojure-mode) (insert "\n" "(specify! obj\n ISwap\n (-swap!\
> (unwind-protect (progn (clojure-mode) (insert "\n" "(specify! obj\n
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-
> (let ((lexical-binding t)) (progn (let ((temp-buffer (generate-new-b
> (closure (t) nil (let ((lexical-binding t)) (progn (let ((temp-buffe
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name test-backtracking-specify! :documenta
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
> ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
> ert-run-tests-batch(nil)
> ert-run-tests-batch-and-exit()
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test test-backtracking-specify! condition:
> (wrong-type-argument number-or-marker-p nil)
> FAILED 93/106 test-backtracking-specify! (0.000520 sec)
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> Indenting region...
> Indenting region...done
> passed 94/106 test-backtracking-symbols-ending-in-crap (0.001005 sec)
> Indenting region...
> Indenting region...done
> passed 95/106 test-backtracking-unfinished-sexps (0.000313 sec)
> passed 96/106 test-buffer-corners (0.000530 sec)
> passed 97/106 test-clojure-beginning-of-defun-function (0.000378 sec)
> passed 98/106 test-clojure-end-of-defun-function (0.000148 sec)
> passed 99/106 test-clojure-in-docstring-p (0.000325 sec)
> passed 100/106 test-clojure-top-level-form-p (0.000166 sec)
> passed 101/106 test-paragraph-fill-not-altering-surrounding-code (0.000514 sec)
> passed 102/106 test-paragraph-fill-within-comments (0.000294 sec)
> passed 103/106 test-paragraph-fill-within-inner-comments (0.000335 sec)
> passed 104/106 test-sexp (0.000221 sec)
> passed 105/106 test-sexp-with-commas (0.000111 sec)
> ns form has been sorted
> ns form has been sorted
> passed 106/106 test-sort-ns (0.403118 sec)
>
> Ran 106 tests, 82 results as expected, 24 unexpected (2022-09-17 20:05:49+0000, 10.022059 sec)
>
> 24 unexpected results:
> FAILED dont-hang-on-eob
> FAILED indentation/cond-indentation
> FAILED indentation/fixed-normal-indent
> FAILED indentation/form-with-metadata
> FAILED indentation/symbol-with-ns
> FAILED indentation/symbol-without-ns
> FAILED test-align-incomplete-sexp
> FAILED test-align-multiple-words
> FAILED test-backtracking-closing-paren
> FAILED test-backtracking-definterface
> FAILED test-backtracking-defprotocol
> FAILED test-backtracking-defrecord
> FAILED test-backtracking-defrecord-2
> FAILED test-backtracking-defrecord-allow-multiarity
> FAILED test-backtracking-deftype-allow-multiarity
> FAILED test-backtracking-empty-close-paren
> FAILED test-backtracking-extend-type-allow-multiarity
> FAILED test-backtracking-function-spec
> FAILED test-backtracking-let-when-while-forms
> FAILED test-backtracking-letfn
> FAILED test-backtracking-proxy
> FAILED test-backtracking-reify
> FAILED test-backtracking-specify
> FAILED test-backtracking-specify!
>
> dh_elpa_test: error: emacs -batch -Q -l package --eval "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa\")" --eval "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa-src\")" -f package-initialize -L . -L test --eval "(load-file \"test/test-helper.el\")" -l test/test-helper.el -l test/clojure-mode-indentation-test.el -l test/clojure-mode-sexp-test.el -l test/clojure-mode-font-lock-test.el -l test/clojure-mode-syntax-test.el -l test/clojure-mode-util-test.el --eval \(ert-run-tests-batch-and-exit\) returned exit code 1
> make: *** [debian/rules:4: build] Error 25
The full build log is available from:
http://qa-logs.debian.net/2022/09/17/clojure-mode_5.10.0-3_unstable.log
All bugs filed during this archive rebuild are listed at:
https://bugs.debian.org/cgi-bin/pkgreport.cgi?tag=ftbfs-20220917;users=lucas@debian.org
or:
https://udd.debian.org/bugs/?release=na&merged=ign&fnewerval=7&flastmodval=7&fusertag=only&fusertagtag=ftbfs-20220917&fusertaguser=lucas@debian.org&allbugs=1&cseverity=1&ctags=1&caffected=1#results
A list of current common problems and possible solutions is available at
http://wiki.debian.org/qa.debian.org/FTBFS . You're welcome to contribute!
If you reassign this bug to another package, please marking it as 'affects'-ing
this package. See https://www.debian.org/Bugs/server-control#affects
If you fail to reproduce this, please provide a build log and diff it with mine
so that we can identify if something relevant changed in the meantime.
Reply to: