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