X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=a99e5ba0034a12b8bc0b6e98d2b5fde2b267090b;hb=cf607a404d7518e8a18c9e362913f370eb9a5e38;hp=b4c90eb5c8e85191b25d0438d79b4272901b7646;hpb=25070981025894faaef260a38b83fd0bbcfdc80d;p=sbcl.git

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index b4c90eb..a99e5ba 100644
--- a/src/compiler/main.lisp
+++ b/src/compiler/main.lisp
@@ -1073,9 +1073,11 @@
 					       compile-time-too))))))
         (if (atom form)
             #+sb-xc-host
-            ;; (There are no EVAL-WHEN issues in the ATOM case until
-            ;; SBCL gets smart enough to handle global
-            ;; DEFINE-SYMBOL-MACRO or SYMBOL-MACROLET.)
+            ;; (There are no xc EVAL-WHEN issues in the ATOM case until
+            ;; (1) SBCL gets smart enough to handle global
+            ;; DEFINE-SYMBOL-MACRO or SYMBOL-MACROLET and (2) SBCL
+	    ;; implementors start using symbol macros in a way which
+	    ;; interacts with SB-XC/CL distinction.)
             (convert-and-maybe-compile form path)
             #-sb-xc-host
             (default-processor form)