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)