diff --git a/pcl/boot.lisp b/pcl/boot.lisp index 5a55239688e42e8a1b3652632b5a3240e6191c1e..e802a4d9a584eee8f3a9c46252d866f1f8656de1 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)