Bug#1020164: marked as done (clojure-mode: FTBFS with emacs 28: 24 tests failed)
Your message dated Fri, 03 Mar 2023 05:03:57 +0000
with message-id <E1pXxaH-006rse-Vl@fasolo.debian.org>
and subject line Bug#1020164: fixed in clojure-mode 5.10.0-4
has caused the Debian Bug report #1020164,
regarding clojure-mode: FTBFS with emacs 28: 24 tests failed
to be marked as done.
This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
Bug report if necessary, and/or fix the problem forthwith.
(NB: If you are a system administrator and have no idea what this
message is talking about, this may indicate a serious mail system
misconfiguration somewhere. Please contact owner@bugs.debian.org
immediately.)
--
1020164: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=1020164
Debian Bug Tracking System
Contact owner@bugs.debian.org with problems
--- Begin Message ---
- To: submit@bugs.debian.org
- Subject: clojure-mode: FTBFS: make: *** [debian/rules:4: build] Error 25
- From: Lucas Nussbaum <lucas@debian.org>
- Date: Sun, 18 Sep 2022 08:53:49 +0200
- Message-id: <YybAfXta2nMXs/R9@xanadu.blop.info>
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.
--- End Message ---
--- Begin Message ---
Source: clojure-mode
Source-Version: 5.10.0-4
Done: Sergio Durigan Junior <sergiodj@debian.org>
We believe that the bug you reported is fixed in the latest version of
clojure-mode, which is due to be installed in the Debian FTP archive.
A summary of the changes between this version and the previous one is
attached.
Thank you for reporting the bug, which will now be closed. If you
have further comments please address them to 1020164@bugs.debian.org,
and the maintainer will reopen the bug report if appropriate.
Debian distribution maintenance software
pp.
Sergio Durigan Junior <sergiodj@debian.org> (supplier of updated clojure-mode package)
(This message was generated automatically at their request; if you
believe that there is a problem with it please contact the archive
administrators by mailing ftpmaster@ftp-master.debian.org)
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA512
Format: 1.8
Date: Thu, 02 Mar 2023 23:43:23 -0500
Source: clojure-mode
Architecture: source
Version: 5.10.0-4
Distribution: unstable
Urgency: medium
Maintainer: Debian Emacsen team <debian-emacsen@lists.debian.org>
Changed-By: Sergio Durigan Junior <sergiodj@debian.org>
Closes: 1020164
Changes:
clojure-mode (5.10.0-4) unstable; urgency=medium
.
* Team upload.
* clojure-mode.el: Patch file to fix FTBFS with Emacs 28.
(Closes: #1020164)
Checksums-Sha1:
4a133fbc186aab08882abbc27980f62354844d34 2151 clojure-mode_5.10.0-4.dsc
265e7f2523eeaeef5df4a76fadd8c199f9174652 4104 clojure-mode_5.10.0-4.debian.tar.xz
8adf168eca14258e12af4cebbea57119fb4e1eaa 8388 clojure-mode_5.10.0-4_amd64.buildinfo
Checksums-Sha256:
4302fa02d57765a4dd90434159ac8fb2cefd70229c56dbb33cea2e0a2fef4067 2151 clojure-mode_5.10.0-4.dsc
9b9de36ef1042b2028f69625d89998d1d968dbdbb47f1abe0000a41b0f42b97a 4104 clojure-mode_5.10.0-4.debian.tar.xz
70c43a4aa855ddc0cf94c23e6e6e56e1b4e0f3c0ede55a5479bea0b6c5879a38 8388 clojure-mode_5.10.0-4_amd64.buildinfo
Files:
a4ec85830179df312fbe981d7fdd4239 2151 lisp optional clojure-mode_5.10.0-4.dsc
4c0590d32dedd39d3c37731d67e0e55f 4104 lisp optional clojure-mode_5.10.0-4.debian.tar.xz
c9530d3a700f39f446798837a1377449 8388 lisp optional clojure-mode_5.10.0-4_amd64.buildinfo
-----BEGIN PGP SIGNATURE-----
iQJIBAEBCgAyFiEEI3pUsQKHKL8A7zH00Ot2KGX8XjYFAmQBeywUHHNlcmdpb2Rq
QGRlYmlhbi5vcmcACgkQ0Ot2KGX8XjbSSQ//QBSkzCzVjsxf4h4pklBwwuYy4o1B
IeNe/ghFbdkGrRJoEqRBytbCJ0dE4Eb3CjtNILQsGdVf//YMvg+H9L202gxEGOIv
PwRlIEsEfXKgSW6Mk1o+2D6F8fpl8SLHilwNnx+QK/7U/GkFktAiCNyPi3alHfKN
6PqZdHMehvVfZ9l1fKCx79J9rWOkM1tX966Kj3I5168L3olb7Mn3uu2M5hbCafF5
DnhyrvyOOfSJxG3gSLEFJjNZ3hHoi5X92EdYtnD9qMMNAZGfN0ZKmURc0j6k2w7A
M8wZ3Tx+wJcbaTD+KCgby2uKdua6C5hYaYfBEkSwbLgrK+Q6TjlsY7p0mo4Wz9d5
ULV+2+uT4EEAGzp1s2NuF6sxiGvrxIIfGeebW0akO3svV7pJrDRWJUbkQy5Ulxjq
bH4/U8pkpwQDtnPxJKJM9FyNqYElf0TrvsWWjf0b6XT5FiTIXinPUeHNF6R5KNnx
xn6mkTxrTt+TLzeEJ8pRjMFNun0Xq77u/lRpvcs8RGfk2SlKiT1lz8Ohc70xgk8R
UbD3tWoRJQvSHWB6QlkBF7xUtpJ3VeuWYS3fD7FeLJQVd/S6eXgScGVi4ok7253P
NYEBy9r7tRqZeeM4P+snpmM7JMJ6kMLxTcl3059jC0cu9wJbwK2Ysrudg4ZDsiou
wJvgdYlXakyTcSk=
=Ez2S
-----END PGP SIGNATURE-----
--- End Message ---
Reply to: