Raymond Toy pushed to branch issue-499-defmacro-restart-for-locked-packages at cmucl / cmucl

Commits:

• 77ffdd85
  by Raymond Toy at 2026-05-01T14:25:07-07:00

  Don't signal error if *enable-package-locked-errors* is nil
  
  We were signaling errors (when building cmucl) about redefining macros
  in a locked package even though *enable-package-locked-errors* was
  NIL.  Need to check for that, carefully, because it might not be bound
  when building cmucl.
  

1 changed file:

• src/code/macros.lisp

Changes:

 (defun c::%%defmacro (name definition doc)

   (let ((package (symbol-package name)))

     (when package

-      (when (ext:package-definition-lock package)

+      (when (and (ext:package-definition-lock package)

+		 ;; Bootstrap.  This might not be bound yet.

+		 (boundp 'lisp::*enable-package-locked-errors)

+		 lisp::*enable-package-locked-errors)

         (restart-case

             (error 'lisp::package-locked-error

                    :package package