Source: clojure-mode Version: 5.10.0-3 Severity: serious Justification: FTBFS Tags: bookworm sid ftbfs User: lu...@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=lu...@debian.org or: https://udd.debian.org/bugs/?release=na&merged=ign&fnewerval=7&flastmodval=7&fusertag=only&fusertagtag=ftbfs-20220917&fusertaguser=lu...@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.