May 2026 - cmucl-cvs - mailman3.common-lisp.net

[Git][cmucl/cmucl][issue-500-common-package-error-restart-function] Remove debugging stuff
by Raymond Toy (＠rtoy) 02 May '26

02 May '26

Raymond Toy pushed to branch issue-500-common-package-error-restart-function at cmucl / cmucl Commits: df4b819c by Raymond Toy at 2026-05-02T07:26:15-07:00 Remove debugging stuff - - - - - 1 changed file: - tests/package-lock.lisp Changes: ===================================== tests/package-lock.lisp ===================================== @@ -13,20 +13,6 @@ (defpackage :test-locked-package (:use :cl)) -(let* ((p (find-package :test-locked-package)) - (sym (intern "TOPLEVEL-PROBE" p))) - (setf (ext:package-lock p) t) - (format t "~&TOPLEVEL: package-lock=~S enable=~S~%" - (ext:package-lock p) lisp::*enable-package-locked-errors*) - (handler-case - (let ((result (unintern sym p))) - (format t "~&TOPLEVEL: unintern returned ~S (no error)~%" result)) - (lisp::package-locked-error (c) - (format t "~&TOPLEVEL: caught error ~A~%" c)) - (error (c) - (format t "~&TOPLEVEL: caught other error ~A (~A)~%" c (type-of c)))) - (setf (ext:package-lock p) nil)) - (defmacro with-definition-locked ((package) &body body) "Run BODY with PACKAGE's definition-lock enabled and namespace-lock disabled, so failures from BODY can be attributed unambiguously to @@ -103,45 +89,3 @@ (assert-error 'lisp::package-locked-error (unexport sym p))))) -(define-test package-lock-debug - (:tag :issues) - (let* ((p (find-package :test-locked-package)) - (sym (intern "DEBUG-SYM" p))) - (setf (ext:package-lock p) t) - (format t "~&Just before unintern:~%") - (format t " package-lock: ~S~%" (ext:package-lock p)) - (format t " *enable-package-locked-errors*: ~S~%" - lisp::*enable-package-locked-errors*) - (format t " *package*: ~S~%" *package*) - (format t " package of unintern fn: ~S~%" - (symbol-package 'unintern)) - (handler-case - (let ((result (unintern sym p))) - (format t " unintern returned: ~S~%" result)) - (lisp::package-locked-error (c) - (format t " GOT package-locked-error: ~A~%" c)) - (error (c) - (format t " got OTHER error: ~A~%" c))) - (setf (ext:package-lock p) nil) - (assert-true t))) - -;; At end of file: -(format *error-output* "~&~%==== TOPLEVEL PROBE ====~%") -(force-output *error-output*) -(let* ((p (find-package :test-locked-package)) - (sym (intern "TOPLEVEL-PROBE" p))) - (setf (ext:package-lock p) t) - (format *error-output* "package-lock=~S enable=~S~%" - (ext:package-lock p) lisp::*enable-package-locked-errors*) - (force-output *error-output*) - (handler-case - (let ((result (unintern sym p))) - (format *error-output* "unintern returned ~S (NO ERROR!)~%" result)) - (lisp::package-locked-error (c) - (format *error-output* "GOT package-locked-error: ~A~%" c)) - (error (c) - (format *error-output* "got OTHER error: ~A (~A)~%" c (type-of c)))) - (force-output *error-output*) - (setf (ext:package-lock p) nil)) -(format *error-output* "==== END PROBE ====~%~%") -(force-output *error-output*) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/df4b819c5683e7335fd0374… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/df4b819c5683e7335fd0374… You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help

1 0

[Git][cmucl/cmucl][issue-500-common-package-error-restart-function] 2 commits: Simplify signal-packge-locked-error
by Raymond Toy (＠rtoy) 02 May '26

02 May '26

Raymond Toy pushed to branch issue-500-common-package-error-restart-function at cmucl / cmucl Commits: 711e453e by Raymond Toy at 2026-05-02T07:19:43-07:00 Simplify signal-packge-locked-error `signal-packge-locked-error` no only checks if `*enable-package-locked-errors*` is NIL or not. The callers are responsible for any addition checks like whether the package locks are enabled. Update callers to do these check, to match the original code. - - - - - fc108262 by Raymond Toy at 2026-05-02T07:21:35-07:00 Add package-lock tests I tested these using the current master branch, and the tests all pass. - - - - - 3 changed files: - src/code/macros.lisp - src/code/package.lisp - + tests/package-lock.lisp Changes: ===================================== src/code/macros.lisp ===================================== @@ -222,7 +222,7 @@ (unless (symbolp name) (simple-program-error (intl:gettext "~S -- Type name not a symbol.") name)) (let ((pkg (symbol-package name))) - (when pkg + (when (and pkg (ext:package-definition-lock pkg)) (signal-package-locked-error pkg :definition (intl:gettext "defining type ~A") name))) ===================================== src/code/package.lisp ===================================== @@ -195,8 +195,7 @@ (defun signal-package-locked-error (package lock-kind message-control &rest message-args) (when (and (boundp 'lisp::*enable-package-locked-errors*) lisp::*enable-package-locked-errors*) - (when (ext:package-definition-lock package) - (restart-case + (restart-case (error 'lisp::package-locked-error :package package :format-control message-control @@ -217,7 +216,7 @@ (unlock-all () :report (lambda (stream) (write-string (intl:gettext "Unlock all packages, then continue") stream)) - (unlock-all-packages)))))) + (unlock-all-packages))))) ;; trap attempts to redefine a function in a locked package, and ;; signal a continuable error. @@ -1488,9 +1487,10 @@ (name (symbol-name symbol)) (shadowing-symbols (package-%shadowing-symbols package))) (declare (list shadowing-symbols) (simple-string name)) - (signal-package-locked-error package :namespace + (when (ext:package-lock package) + (signal-package-locked-error package :namespace (intl:gettext "uninterning symbol ~A") - name) + name)) #+nil (when *enable-package-locked-errors* (when (ext:package-lock package) @@ -1674,9 +1674,10 @@ "Makes SYMBOLS no longer exported from PACKAGE." (let ((package (package-or-lose package)) (syms ())) - (signal-package-locked-error package :namespace - (intl:gettext "unexporting symbols ~A") - symbols) + (when (ext:package-lock package) + (signal-package-locked-error package :namespace + (intl:gettext "unexporting symbols ~A") + symbols)) #+nil (when *enable-package-locked-errors* (when (ext:package-lock package) ===================================== tests/package-lock.lisp ===================================== @@ -0,0 +1,147 @@ +;;; Regression tests for package-locked-error signaling. +;;; +;;; These tests exist as a baseline before refactoring the +;;; package-lock checks into a shared helper. They verify that +;;; package-locked-error is signaled at each call site we expect to +;;; check the lock; restart behavior is tested separately. + +(defpackage :package-lock-tests + (:use :cl :lisp-unit)) + +(in-package "PACKAGE-LOCK-TESTS") + +(defpackage :test-locked-package + (:use :cl)) + +(let* ((p (find-package :test-locked-package)) + (sym (intern "TOPLEVEL-PROBE" p))) + (setf (ext:package-lock p) t) + (format t "~&TOPLEVEL: package-lock=~S enable=~S~%" + (ext:package-lock p) lisp::*enable-package-locked-errors*) + (handler-case + (let ((result (unintern sym p))) + (format t "~&TOPLEVEL: unintern returned ~S (no error)~%" result)) + (lisp::package-locked-error (c) + (format t "~&TOPLEVEL: caught error ~A~%" c)) + (error (c) + (format t "~&TOPLEVEL: caught other error ~A (~A)~%" c (type-of c)))) + (setf (ext:package-lock p) nil)) + +(defmacro with-definition-locked ((package) &body body) + "Run BODY with PACKAGE's definition-lock enabled and namespace-lock + disabled, so failures from BODY can be attributed unambiguously to + the definition lock." + `(let ((p ,package)) + (setf (ext:package-definition-lock p) t + (ext:package-lock p) nil) + (assert-true (ext:package-definition-lock p)) + (assert-false (ext:package-lock p)) + (unwind-protect (progn ,@body) + (setf (ext:package-definition-lock p) nil + (ext:package-lock p) nil)))) + +(defmacro with-namespace-locked ((package) &body body) + "Run BODY with PACKAGE's namespace-lock enabled and definition-lock + disabled, so failures from BODY can be attributed unambiguously to + the namespace lock." + `(let ((p ,package)) + (setf (ext:package-definition-lock p) nil + (ext:package-lock p) t) + (assert-false (ext:package-definition-lock p)) + (assert-true (ext:package-lock p)) + (unwind-protect (progn ,@body) + (setf (ext:package-definition-lock p) nil + (ext:package-lock p) nil)))) + + +;;; ---- Definition-lock tests ---- + +(define-test package-locked.defmacro + (:tag :issues) + (with-definition-locked ((find-package :test-locked-package)) + (assert-error 'lisp::package-locked-error + (eval '(defmacro test-locked-package::a-macro (x) + `(list ,x)))))) + +(define-test package-locked.defun + (:tag :issues) + (with-definition-locked ((find-package :test-locked-package)) + (assert-error 'lisp::package-locked-error + (eval '(defun test-locked-package::a-fn (x) x))))) + +(define-test package-locked.deftype + (:tag :issues) + (with-definition-locked ((find-package :test-locked-package)) + (assert-error 'lisp::package-locked-error + (eval '(deftype test-locked-package::a-type () + 'integer))))) + +(define-test package-locked.defstruct + (:tag :issues) + (with-definition-locked ((find-package :test-locked-package)) + (assert-error 'lisp::package-locked-error + (eval '(defstruct test-locked-package::a-struct + slot-1 slot-2))))) + + +;;; ---- Namespace-lock tests ---- + +(define-test package-locked.unintern + (:tag :issues) + (let ((sym (intern "TO-BE-UNINTERNED" + (find-package :test-locked-package)))) + (with-namespace-locked ((find-package :test-locked-package)) + (assert-error 'lisp::package-locked-error + (unintern sym (find-package :test-locked-package)))))) + +(define-test package-locked.unexport + (:tag :issues) + (let* ((p (find-package :test-locked-package)) + (sym (intern "TO-BE-UNEXPORTED" p))) + (export sym p) + (with-namespace-locked (p) + (assert-error 'lisp::package-locked-error + (unexport sym p))))) + +(define-test package-lock-debug + (:tag :issues) + (let* ((p (find-package :test-locked-package)) + (sym (intern "DEBUG-SYM" p))) + (setf (ext:package-lock p) t) + (format t "~&Just before unintern:~%") + (format t " package-lock: ~S~%" (ext:package-lock p)) + (format t " *enable-package-locked-errors*: ~S~%" + lisp::*enable-package-locked-errors*) + (format t " *package*: ~S~%" *package*) + (format t " package of unintern fn: ~S~%" + (symbol-package 'unintern)) + (handler-case + (let ((result (unintern sym p))) + (format t " unintern returned: ~S~%" result)) + (lisp::package-locked-error (c) + (format t " GOT package-locked-error: ~A~%" c)) + (error (c) + (format t " got OTHER error: ~A~%" c))) + (setf (ext:package-lock p) nil) + (assert-true t))) + +;; At end of file: +(format *error-output* "~&~%==== TOPLEVEL PROBE ====~%") +(force-output *error-output*) +(let* ((p (find-package :test-locked-package)) + (sym (intern "TOPLEVEL-PROBE" p))) + (setf (ext:package-lock p) t) + (format *error-output* "package-lock=~S enable=~S~%" + (ext:package-lock p) lisp::*enable-package-locked-errors*) + (force-output *error-output*) + (handler-case + (let ((result (unintern sym p))) + (format *error-output* "unintern returned ~S (NO ERROR!)~%" result)) + (lisp::package-locked-error (c) + (format *error-output* "GOT package-locked-error: ~A~%" c)) + (error (c) + (format *error-output* "got OTHER error: ~A (~A)~%" c (type-of c)))) + (force-output *error-output*) + (setf (ext:package-lock p) nil)) +(format *error-output* "==== END PROBE ====~%~%") +(force-output *error-output*) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/fd43e9a212d787f02dbae1… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/fd43e9a212d787f02dbae1… You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help

1 0

[Git][cmucl/cmucl] Pushed new branch issue-500-common-package-error-restart-function
by Raymond Toy (＠rtoy) 02 May '26

02 May '26

Raymond Toy pushed new branch issue-500-common-package-error-restart-function at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-500-common-package-… You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help

1 0

[Git][cmucl/cmucl][issue-499-defmacro-restart-for-locked-packages] Add tests.
by Raymond Toy (＠rtoy) 01 May '26

01 May '26

Raymond Toy pushed to branch issue-499-defmacro-restart-for-locked-packages at cmucl / cmucl Commits: 9e2b0dc3 by Raymond Toy at 2026-05-01T15:10:55-07:00 Add tests. Also manually tested with slime and C-c C-c of with-temporary-file signals a restart in slime just like if I had done C-c C-c for a defun in a locked package. - - - - - 1 changed file: - + tests/defmacro.lisp Changes: ===================================== tests/defmacro.lisp ===================================== @@ -0,0 +1,69 @@ +;;; Tests for defmacro documention and location info + +(defpackage :defmacro-tests + (:use :cl :lisp-unit)) + +(in-package "DEFMACRO-TESTS") + +(defpackage :test-locked-package + (:use :cl)) + +(define-test issue.499.defmacro-signals-locked-package-error + (:tag :issues) + (setf (ext:package-definition-lock (find-package :test-locked-package)) + t) + ;; Without a restart-handler, defining a macro in a locked package + ;; must signal a package-locked-error. + (assert-error 'lisp::package-locked-error + (eval '(defmacro test-locked-package::foo (x) + `(list ,x))))) + +(define-test issue.499.defmacro-continue-restart + (:tag :issues) + (setf (ext:package-definition-lock (find-package :test-locked-package)) + t) + ;; The continue restart lets the macro definition proceed. + (handler-bind + ((lisp::package-locked-error + #'(lambda (c) + (declare (ignore c)) + (let ((restart (find-restart 'continue))) + (assert-true restart) + (invoke-restart restart))))) + (eval '(defmacro test-locked-package::bar (x) + `(list ,x)))) + ;; After the restart, the macro should be defined and expand + ;; correctly. + (assert-true (macro-function 'test-locked-package::bar)) + (assert-equal '(list 42) + (macroexpand-1 '(test-locked-package::bar 42)))) + +(define-test issue.499.defmacro-unlock-restart + (:tag :issues) + (let ((package (find-package :test-locked-package))) + ;; Set the lock just in case + (setf (ext:package-definition-lock package) t) + (handler-bind + ((lisp::package-locked-error + #'(lambda (c) + (declare (ignore c)) + (let ((restart (find-restart 'lisp::unlock-package))) + (assert-true restart) + (invoke-restart restart))))) + (eval '(defmacro test-locked-package::baz (x) + `(list ,x)))) + ;; Macro should be defined, the package lock should be disabled. + (assert-true (macro-function 'test-locked-package::baz)) + (assert-false (ext:package-definition-lock package)) + (setf (ext::package-definition-lock package) t))) + +(define-test issue.499.unlocked-package-no-error + (:tag :issue) + (let ((package (find-package :test-locked-package))) + (setf (ext:package-definition-lock package) nil) + (unwind-protect + (progn + (eval '(defmacro test-locked-package::foobar (x) + `(list ,x))) + (assert-true (macro-function 'test-locked-package::foobar))) + (setf (ext:package-definition-lock package) t)))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/9e2b0dc39c10abc314a471e… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/9e2b0dc39c10abc314a471e… You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help

1 0

[Git][cmucl/cmucl][issue-499-defmacro-restart-for-locked-packages] Move all of the restart stuff from defmacro to %%defmacro
by Raymond Toy (＠rtoy) 01 May '26

01 May '26

Raymond Toy pushed to branch issue-499-defmacro-restart-for-locked-packages at cmucl / cmucl Commits: 7fb7b8d9 by Raymond Toy at 2026-05-01T15:04:42-07:00 Move all of the restart stuff from defmacro to %%defmacro Only moved part of the code from defmacro. We really want all of it. - - - - - 1 changed file: - src/code/macros.lisp Changes: ===================================== src/code/macros.lisp ===================================== @@ -77,11 +77,11 @@ ;;; definition is done by %defmacro which we expand into. ;;; (defmacro defmacro (name lambda-list &body body) + #+nil (when lisp::*enable-package-locked-errors* (multiple-value-bind (valid block-name) (ext:valid-function-name-p name) (declare (ignore valid)) - #+nil (let ((package (symbol-package block-name))) (when package (when (ext:package-definition-lock package) @@ -138,28 +138,33 @@ (c::%%defmacro name definition doc)) ;;; (defun c::%%defmacro (name definition doc) - (let ((package (symbol-package name))) - (when 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 - :format-control (intl:gettext "defining macro ~A") - :format-arguments (list name)) - (continue () - :report (lambda (stream) - (write-string (intl:gettext "Ignore the lock and continue") stream))) - (unlock-package () - :report (lambda (stream) - (write-string (intl:gettext "Disable the package's definition-lock then continue") stream)) - (setf (ext:package-definition-lock package) nil)) - (unlock-all () - :report (lambda (stream) - (write-string (intl:gettext "Unlock all packages, then continue") stream)) - (lisp::unlock-all-packages)))))) + ;; Bootstrap: *enable-package-locked-errors* may not be bound while + ;; loading the kernel.core. + (when (and (boundp 'lisp::*enable-package-locked-errors*) + lisp::*enable-package-locked-errors*) + (multiple-value-bind (valid block-name) + (ext:valid-function-name-p name) + (declare (ignore valid)) + (let ((package (symbol-package block-name))) + (when package + (when (ext:package-definition-lock package) + (restart-case + (error 'lisp::package-locked-error + :package package + :format-control (intl:gettext "defining macro ~A") + :format-arguments (list name)) + (continue () + :report (lambda (stream) + (write-string (intl:gettext "Ignore the lock and continue") stream))) + (unlock-package () + :report (lambda (stream) + (write-string (intl:gettext "Disable the package's definition-lock then continue") stream)) + (setf (ext:package-definition-lock package) nil)) + (unlock-all () + :report (lambda (stream) + (write-string (intl:gettext "Unlock all packages, then continue") stream)) + (lisp::unlock-all-packages)))))))) + (clear-info function where-from name) (setf (macro-function name) definition) (setf (documentation name 'function) doc) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7fb7b8d9478341831948766… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7fb7b8d9478341831948766… You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help

1 0

[Git][cmucl/cmucl][issue-499-defmacro-restart-for-locked-packages] Don't signal error if *enable-package-locked-errors* is nil
by Raymond Toy (＠rtoy) 01 May '26

01 May '26

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: ===================================== src/code/macros.lisp ===================================== @@ -140,7 +140,10 @@ (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 View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/77ffdd85f60e2f3055f567d… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/77ffdd85f60e2f3055f567d… You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help

1 0

[Git][cmucl/cmucl] Pushed new branch issue-499-defmacro-restart-for-locked-packages
by Raymond Toy (＠rtoy) 01 May '26

01 May '26

Raymond Toy pushed new branch issue-499-defmacro-restart-for-locked-packages at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-499-defmacro-restar… You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help

1 0

[Git][cmucl/cmucl][master] Fix indentation of docstrings for with-temporary-file/directory
by Raymond Toy (＠rtoy) 01 May '26

01 May '26

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 90bc6c63 by Raymond Toy at 2026-05-01T11:57:26-07:00 Fix indentation of docstrings for with-temporary-file/directory The docstrings for with-temporary-file and with-temporary-directory were not formatted correctly. For example, `(describe 'with-temporary-file)` shows: Macro documentation: Creates a temporary file with a name bound to Filename which a namestring. If Directory is not provided, the temporary file is created The second line should be indented by one more space. No functional changes here. - - - - - 1 changed file: - src/code/extensions.lisp Changes: ===================================== src/code/extensions.lisp ===================================== @@ -645,10 +645,10 @@ (defmacro with-temporary-file ((filename &key directory (prefix "cmucl-temp-file-")) &parse-body (forms decls)) _N"Creates a temporary file with a name bound to Filename which a - namestring. If Directory is not provided, the temporary file is created - in a OS-dependent location. The Prefix is a prefix to the file name - to be created. If not provided a default prefix is used. - On completion, the file is automatically removed." + namestring. If Directory is not provided, the temporary file is created + in a OS-dependent location. The Prefix is a prefix to the file name + to be created. If not provided a default prefix is used. + On completion, the file is automatically removed." (let ((fd (gensym "FD-")) (file-template (gensym "TEMP-PATH-")) (unique-filename (gensym "UNIQUE-FILENAME-"))) @@ -701,11 +701,11 @@ (defmacro with-temporary-directory ((dirname &key directory (prefix "cmucl-temp-dir-")) &parse-body (forms decls)) _N"Return a namestring to a temporary directory. If Directory is not - provided, the directory is created in an OS-dependent location. The - Prefix is a string that is used as a prefix for the name of the - temporary directory. If Prefix is not given, a default prefix is - used. The directory and all its contents are automatically removed - afterward." + provided, the directory is created in an OS-dependent location. The + Prefix is a string that is used as a prefix for the name of the + temporary directory. If Prefix is not given, a default prefix is + used. The directory and all its contents are automatically removed + afterward." (let ((err (gensym "ERR-")) (dir-template (gensym "DIR-TEMPLATE-"))) `(let ((,dir-template (create-template ,directory ,prefix)) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/90bc6c63813e9c8d46ba8a7… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/90bc6c63813e9c8d46ba8a7… You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help

1 0

[Git][cmucl/cmucl] Pushed new branch issue-498-defmacro-source-location
by Raymond Toy (＠rtoy) 01 May '26

01 May '26

Raymond Toy pushed new branch issue-498-defmacro-source-location at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-498-defmacro-source… You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help

1 0

[Git][cmucl/cmucl][issue-497-describe-macro-with-arglist] Add test that macro documentation still works
by Raymond Toy (＠rtoy) 01 May '26

01 May '26

Raymond Toy pushed to branch issue-497-describe-macro-with-arglist at cmucl / cmucl Commits: f561aa57 by Raymond Toy at 2026-05-01T11:21:29-07:00 Add test that macro documentation still works Just a sanity check because we inserted the lambda-list arg before the doc arg in %%defmacro. - - - - - 1 changed file: - tests/defmacro.lisp Changes: ===================================== tests/defmacro.lisp ===================================== @@ -43,6 +43,11 @@ (assert-equal '(name &body body) (c::info :function :macro-arglist 'issue.497.body))) +(define-test issue.497.documentation + (:tag :issues) + (assert-equal "Build a list from two args" + (documentation 'issue.497.with-doc 'function))) + (define-test issue.497.macro-expands (:tag :issues) ;; Storing the lambda-list must not have broken the macro-function View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/f561aa578961ce7190c85f3… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/f561aa578961ce7190c85f3… You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help

1 0