From 98c2352e08126e02ec73b129e7bcdbe0e85deddb Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 8 Nov 1991 04:27:17 +0000 Subject: [PATCH] CMUCL has a real SYMBOL-MACROLET, so use it instead of defining a macro. --- pcl/boot.lisp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/pcl/boot.lisp b/pcl/boot.lisp index 5a5523968..e802a4d9a 100644 --- a/pcl/boot.lisp +++ b/pcl/boot.lisp @@ -1352,6 +1352,7 @@ work during bootstrapping. +#-cmu ;; CMUCL Has a real symbol-macrolet (defmacro symbol-macrolet (bindings &body body &environment env) (let ((specs (mapcar #'(lambda (binding) (list (car binding) @@ -1397,6 +1398,7 @@ work during bootstrapping. slots) ,@body)))))) +#-cmu ;; CMUCL Has a real symbol-macrolet (defun expand-symbol-macrolet-internal (specs form context env) (let ((entry nil)) (cond ((not (eq context :eval)) form) -- GitLab