X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=89f78138963b7d8ad7c20579c2aa018c723b7461;hb=2e91e29892268b2c7e5ab557e8192fa03bce68f2;hp=c44d60131d11f8e7a62159664566f639ed397984;hpb=1dfcd0ed5fc81f4355101c1eeb990a1f7d089e40;p=sbcl.git

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index c44d601..89f7813 100644
--- a/src/compiler/main.lisp
+++ b/src/compiler/main.lisp
@@ -1562,7 +1562,7 @@
 ;;; If the constant doesn't show up in *CONSTANTS-BEING-CREATED*, then
 ;;; we have to create it. We call MAKE-LOAD-FORM and check to see
 ;;; whether the creation form is the magic value
-;;; :JUST-DUMP-IT-NORMALLY. If it is, then we don't do anything. The
+;;; :SB-JUST-DUMP-IT-NORMALLY. If it is, then we don't do anything. The
 ;;; dumper will eventually get its hands on the object and use the
 ;;; normal structure dumping noise on it.
 ;;;
@@ -1603,7 +1603,7 @@
 				 constant
 				 condition)))
       (case creation-form
-	(:just-dump-it-normally
+	(:sb-just-dump-it-normally
 	 (fasl-validate-structure constant *compile-object*)
 	 t)
 	(:ignore-it