Skip to content
Snippets Groups Projects
Commit 98c2352e authored by wlott's avatar wlott
Browse files

CMUCL has a real SYMBOL-MACROLET, so use it instead of defining a macro.

parent bbcf7774
No related branches found
No related tags found
No related merge requests found
...@@ -1352,6 +1352,7 @@ work during bootstrapping. ...@@ -1352,6 +1352,7 @@ work during bootstrapping.
#-cmu ;; CMUCL Has a real symbol-macrolet
(defmacro symbol-macrolet (bindings &body body &environment env) (defmacro symbol-macrolet (bindings &body body &environment env)
(let ((specs (mapcar #'(lambda (binding) (let ((specs (mapcar #'(lambda (binding)
(list (car binding) (list (car binding)
...@@ -1397,6 +1398,7 @@ work during bootstrapping. ...@@ -1397,6 +1398,7 @@ work during bootstrapping.
slots) slots)
,@body)))))) ,@body))))))
#-cmu ;; CMUCL Has a real symbol-macrolet
(defun expand-symbol-macrolet-internal (specs form context env) (defun expand-symbol-macrolet-internal (specs form context env)
(let ((entry nil)) (let ((entry nil))
(cond ((not (eq context :eval)) form) (cond ((not (eq context :eval)) form)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment