Debugger entered--Lisp error: (quit) byte-compile--first-symbol-with-pos((t . #1)) byte-compile--first-symbol-with-pos('(t . #2)) byte-compile--first-symbol-with-pos((progn (macroexp--funcall-if-compiled #f(compiled-function () #)) '(t . #5))) byte-compile--first-symbol-with-pos(((my-cycle) (macroexp--funcall-if-compiled #f(compiled-function () #)) (progn (macroexp--funcall-if-compiled #f(compiled-function () #)) '(t . #8)) (setcar value-0 (progn (macroexp--funcall-if-compiled #f(compiled-function () #)) '(t . #12))) (unwind-protect (setcar value-0 (progn (macroexp--funcall-if-compiled #f(compiled-function () #)) '(t . #15))) :fun-body (internal-make-closure nil (form-description-1 value-0) nil (setcar (internal-get-closed-var 0) (list '(should ...) :form '(progn ... ...) :value (car-safe (internal-get-closed-var 1)))) (ert--signal-should-execution (car-safe (internal-get-closed-var 0))))) (let ((form-description-1 (list nil))) (unwind-protect (setcar value-0 (progn (macroexp--funcall-if-compiled #f(compiled-function () #)) '(t . #19))) :fun-body (internal-make-closure nil (form-description-1 value-0) nil (setcar (internal-get-closed-var 0) (list '... :form '... :value (car-safe ...))) (ert--signal-should-execution (car-safe (internal-get-closed-var 0)))))) (let ((value-0 (list (gensym "ert-form-evaluation-aborted-")))) (let ((form-description-1 (list nil))) (unwind-protect (setcar value-0 (progn (macroexp--funcall-if-compiled #f(compiled-function () #)) '...)) :fun-body (internal-make-closure nil (form-description-1 value-0) nil (setcar (internal-get-closed-var 0) (list ... :form ... :value ...)) (ert--signal-should-execution (car-safe ...))))) (car-safe value-0)) #'(lambda nil (let ((value-0 (list ...))) (let ((form-description-1 ...)) (if (unwind-protect ... :fun-body ...) nil (ert-fail ...))) (car-safe value-0))) (record 'ert-test 'my-test nil #'(lambda nil (let ((value-0 ...)) (let (...) (if ... nil ...)) (car-safe value-0))) nil :passed nil "/tmp/my.el") (ert-set-test 'my-test (record 'ert-test 'my-test nil #'(lambda nil (let (...) (let ... ...) (car-safe value-0))) nil :passed nil "/tmp/my.el")) (ert-deftest my-test nil (should (my-identity (my-cycle)))))) byte-compile--warning-source-offset() byte-compile-log-warning("Oh dear" t :warning) byte-compile-warn("%s" "Oh dear") apply(byte-compile-warn "%s" "Oh dear") byte-compile-warn-x((my-cycle) "%s" "Oh dear") #f(compiled-function () #)() #f(compiled-function (form) #)((macroexp--funcall-if-compiled #f(compiled-function () #))) byte-compile-form((macroexp--funcall-if-compiled #f(compiled-function () #)) t) byte-compile-body(((macroexp--funcall-if-compiled #f(compiled-function () #)) '(t . #4)) nil) byte-compile-progn((progn (macroexp--funcall-if-compiled #f(compiled-function () #)) '(t . #5))) byte-compile-form((progn (macroexp--funcall-if-compiled #f(compiled-function () #)) '(t . #5))) byte-compile-two-args((setcar value-0 (progn (macroexp--funcall-if-compiled #f(compiled-function () #)) '(t . #8)))) byte-compile-form((setcar value-0 (progn (macroexp--funcall-if-compiled #f(compiled-function () #)) '(t . #8))) t) byte-compile-unwind-protect((unwind-protect (setcar value-0 (progn (macroexp--funcall-if-compiled #f(compiled-function () #)) '(t . #10))) :fun-body (internal-make-closure nil (form-description-1 value-0) nil (setcar (internal-get-closed-var 0) (list '(should (my-identity ...)) :form '(progn (macroexp--funcall-if-compiled ...) (my-cycle)) :value (car-safe (internal-get-closed-var 1)))) (ert--signal-should-execution (car-safe (internal-get-closed-var 0)))))) byte-compile-form((unwind-protect (setcar value-0 (progn (macroexp--funcall-if-compiled #f(compiled-function () #)) '(t . #10))) :fun-body (internal-make-closure nil (form-description-1 value-0) nil (setcar (internal-get-closed-var 0) (list '(should (my-identity ...)) :form '(progn (macroexp--funcall-if-compiled ...) (my-cycle)) :value (car-safe (internal-get-closed-var 1)))) (ert--signal-should-execution (car-safe (internal-get-closed-var 0))))) t) ... byte-compile-form((record 'ert-test 'my-test nil #'(lambda nil (let ((value-0 (list ...))) (let ((form-description-1 ...)) (if (unwind-protect ... :fun-body ...) nil (ert-fail ...))) (car-safe value-0))) nil :passed nil "/tmp/my.el")) mapc(byte-compile-form ('my-test (record 'ert-test 'my-test nil #'(lambda nil (let ((value-0 ...)) (let (...) (if ... nil ...)) (car-safe value-0))) nil :passed nil "/tmp/my.el"))) byte-compile-normal-call((ert-set-test 'my-test (record 'ert-test 'my-test nil #'(lambda nil (let ((value-0 ...)) (let (...) (if ... nil ...)) (car-safe value-0))) nil :passed nil "/tmp/my.el"))) byte-compile-form((ert-set-test 'my-test (record 'ert-test 'my-test nil #'(lambda nil (let ((value-0 ...)) (let (...) (if ... nil ...)) (car-safe value-0))) nil :passed nil "/tmp/my.el")) t) byte-compile-keep-pending((ert-set-test 'my-test (record 'ert-test 'my-test nil #'(lambda nil (let ((value-0 ...)) (let (...) (if ... nil ...)) (car-safe value-0))) nil ':passed 'nil "/tmp/my.el"))) byte-compile-file-form((ert-set-test 'my-test (record 'ert-test 'my-test nil #'(lambda nil (let ((value-0 ...)) (let (...) (if ... nil ...)) (car-safe value-0))) nil ':passed 'nil "/tmp/my.el"))) #f(compiled-function (form) #)((ert-set-test 'my-test (record 'ert-test 'my-test nil #'(lambda nil (let ((value-0 ...)) (let (form-description-1) (if ... nil ...)) value-0)) nil ':passed 'nil "/tmp/my.el"))) byte-compile-recurse-toplevel((ert-set-test 'my-test (record 'ert-test 'my-test nil #'(lambda nil (let ((value-0 ...)) (let (form-description-1) (if ... nil ...)) value-0)) nil ':passed 'nil "/tmp/my.el")) #f(compiled-function (form) #)) #f(compiled-function (subform) #)((ert-set-test 'my-test (record 'ert-test 'my-test nil #'(lambda nil (let ((value-0 ...)) (let (form-description-1) (if ... nil ...)) value-0)) nil ':passed 'nil "/tmp/my.el"))) mapcar(#f(compiled-function (subform) #) ((ert-set-test 'my-test (record 'ert-test 'my-test nil #'(lambda nil (let (...) (let ... ...) value-0)) nil ':passed 'nil "/tmp/my.el")) 'my-test)) byte-compile-recurse-toplevel((ert-deftest my-test nil (should (my-identity (my-cycle)))) #f(compiled-function (form) #)) byte-compile-toplevel-file-form((ert-deftest my-test nil (should (my-identity (my-cycle))))) #f(compiled-function (inbuffer) #)(#) byte-compile-from-buffer(#) byte-compile-file("my.el") batch-byte-compile-file("my.el") batch-byte-compile() command-line-1(("-f" "batch-byte-compile" "my.el")) command-line() normal-top-level()