New failures with native-compilation on emacs-next-minimal-30.0.50-1.9d27b95

[nicolas-graves]

Native-compiled on guix with the emacs indicated in the title. The package builds, but three tests fail.

Test macrostep-expand-macrolet-in-separate-buffer backtrace:
  error("(%s ...) is not a macro form" dummy-macro-2)
  (if (consp sexp) (error "(%s ...) is not a macro form" (car sexp)) (
  (condition-case nil (macrostep-next-macro) (error (if (consp sexp) (
  (if (funcall macrostep-macro-form-p-function sexp env) nil (conditio
  (let ((sexp (funcall macrostep-sexp-at-point-function)) (env (funcal
  (save-excursion (if (not (looking-at "[(`]")) (backward-up-list 1)) 
  macrostep-sexp-bounds()
  funcall(macrostep-sexp-bounds)
  (let* ((end (funcall macrostep-sexp-bounds-function)) (start (if end
  macrostep-expand()
  (let ((original-buffer (current-buffer))) (macrostep-goto "(dummy-ma
  (let ((print-level nil) (print-length nil) (standard-output (current
  (progn (emacs-lisp-mode) (let ((print-level nil) (print-length nil) 
  (unwind-protect (progn (emacs-lisp-mode) (let ((print-level nil) (pr
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
  (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
  (let ((macrostep-expand-in-separate-buffer t)) (let ((temp-buffer (g
  (closure (t) nil (let ((macrostep-expand-in-separate-buffer t)) (let
  ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
  ert-run-test(#s(ert-test :name macrostep-expand-macrolet-in-separate
  ert-run-or-rerun-test(#s(ert--stats :selector "^macrostep" :tests ..
  ert-run-tests("^macrostep" #f(compiled-function (event-type &rest ev
  ert-run-tests-batch("^macrostep")
  (let ((stats (ert-run-tests-batch "^macrostep"))) (if noninteractive
  (progn (load-file (expand-file-name "macrostep.el" (file-name-direct
  (if noninteractive (progn (load-file (expand-file-name "macrostep.el
  load-with-code-conversion("/tmp/guix-build-emacs-macrostep-0.9.2.drv
  command-line-1(("-L" "." "-l" "macrostep-test.el" "-f" "ert-run-test
  command-line()
  normal-top-level()
Test macrostep-expand-macrolet-in-separate-buffer condition:
    (error "(dummy-macro-2 ...) is not a macro form")
   FAILED  11/15  macrostep-expand-macrolet-in-separate-buffer (0.000447 sec) at macrostep-test.el:324
Entering macro stepper mode. Use e to expand, c to collapse, q to exit.
Entering macro stepper mode. Use e to expand, c to collapse, q to exit.
   passed  12/15  macrostep-expand-shadowed-macrolet (0.000703 sec)
Entering macro stepper mode. Use e to expand, c to collapse, q to exit.
Test macrostep-fontify-compiler-macros backtrace:
  ert-fail(((should (eq (get-char-property (1+ (point)) 'font-lock-fac
  (if (unwind-protect (setq value-233 (apply fn-231 args-232)) (setq f
  (let (form-description-235) (if (unwind-protect (setq value-233 (app
  (let ((value-233 'ert-form-evaluation-aborted-234)) (let (form-descr
  (let* ((fn-231 #'eq) (args-232 (condition-case err (let ((signal-hoo
  (let ((print-level nil) (print-length nil) (standard-output (current
  (progn (emacs-lisp-mode) (let ((print-level nil) (print-length nil) 
  (unwind-protect (progn (emacs-lisp-mode) (let ((print-level nil) (pr
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
  (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
  (closure (t) nil (defalias 'macrostep-dummy-macro (cons 'macro #'(la
  ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
  ert-run-test(#s(ert-test :name macrostep-fontify-compiler-macros :do
  ert-run-or-rerun-test(#s(ert--stats :selector "^macrostep" :tests ..
  ert-run-tests("^macrostep" #f(compiled-function (event-type &rest ev
  ert-run-tests-batch("^macrostep")
  (let ((stats (ert-run-tests-batch "^macrostep"))) (if noninteractive
  (progn (load-file (expand-file-name "macrostep.el" (file-name-direct
  (if noninteractive (progn (load-file (expand-file-name "macrostep.el
  load-with-code-conversion("/tmp/guix-build-emacs-macrostep-0.9.2.drv
  command-line-1(("-L" "." "-l" "macrostep-test.el" "-f" "ert-run-test
  command-line()
  normal-top-level()
Test macrostep-fontify-compiler-macros condition:
    (ert-test-failed
     ((should
       (eq (get-char-property ... ...) 'macrostep-compiler-macro-face))
      :form (eq nil macrostep-compiler-macro-face) :value nil))
   FAILED  13/15  macrostep-fontify-compiler-macros (0.000288 sec) at macrostep-test.el:367
Test macrostep-pp-macrolet-environment backtrace:
  ert-fail(((should (eq (get-char-property (point) 'font-lock-face) 'm
  (if (unwind-protect (setq value-169 (apply fn-167 args-168)) (setq f
  (let (form-description-171) (if (unwind-protect (setq value-169 (app
  (let ((value-169 'ert-form-evaluation-aborted-170)) (let (form-descr
  (let* ((fn-167 #'eq) (args-168 (condition-case err (let ((signal-hoo
  (progn (funcall --cl-search-- "(some-macro (&rest") (let* ((fn-162 #
  (let* ((--cl-search-- #'(lambda (text) (progn (macrostep-goto text t
  (progn (emacs-lisp-mode) (macrostep-pp '(cl-macrolet ((some-macro (&
  (unwind-protect (progn (emacs-lisp-mode) (macrostep-pp '(cl-macrolet
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
  (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
  (closure (t) nil (let ((temp-buffer (generate-new-buffer " *temp*" t
  ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
  ert-run-test(#s(ert-test :name macrostep-pp-macrolet-environment :do
  ert-run-or-rerun-test(#s(ert--stats :selector "^macrostep" :tests ..
  ert-run-tests("^macrostep" #f(compiled-function (event-type &rest ev
  ert-run-tests-batch("^macrostep")
  (let ((stats (ert-run-tests-batch "^macrostep"))) (if noninteractive
  (progn (load-file (expand-file-name "macrostep.el" (file-name-direct
  (if noninteractive (progn (load-file (expand-file-name "macrostep.el
  load-with-code-conversion("/tmp/guix-build-emacs-macrostep-0.9.2.drv
  command-line-1(("-L" "." "-l" "macrostep-test.el" "-f" "ert-run-test
  command-line()
  normal-top-level()
Test macrostep-pp-macrolet-environment condition:
    (ert-test-failed
     ((should (eq (get-char-property ... ...) 'macrostep-macro-face))
      :form (eq nil macrostep-macro-face) :value nil))
   FAILED  14/15  macrostep-pp-macrolet-environment (0.000374 sec) at macrostep-test.el:260
   passed  15/15  macrostep-print-sexp (0.000138 sec)

Ran 15 tests, 12 results as expected, 3 unexpected (2023-09-27 12:07:41+0000, 0.558410 sec)

3 unexpected results:
   FAILED  macrostep-expand-macrolet-in-separate-buffer
   FAILED  macrostep-fontify-compiler-macros
   FAILED  macrostep-pp-macrolet-environment