From f345e38808ac896ac1f313b98373f794de099fab Mon Sep 17 00:00:00 2001 From: stag Date: Tue, 10 Dec 2024 14:01:52 -0500 Subject: [PATCH] Fix lambda macro having parameters in wrong namespace --- core/readtable.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/core/readtable.lisp b/core/readtable.lisp index b00ed4c..59af718 100644 --- a/core/readtable.lisp +++ b/core/readtable.lisp @@ -110,9 +110,11 @@ sexp)))) (defmacro trivial-positional-lambda (body) - `(lambda (&optional % %%) - (declare (ignorable %) (ignorable %%)) - ,body)) + (let ((% (intern "%")) + (%% (intern "%%"))) + `(lambda (&optional ,% ,%%) + (declare (ignorable ,%) (ignorable ,%%)) + ,body))) (defun |#/-reader| (stream char arg) "Literal syntax for raw strings (which don't need escapin of control chars).