X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdefconstant.lisp;h=db7d6286a2e7c769a1fe88d821cea1d979f356ad;hb=54da325f13fb41669869aea688ae195426c0e231;hp=1bb1d274d1e6c869aab23869f104aad1877acf0c;hpb=ee8c58af0f59d9e5b4307efcbf944f88b850343b;p=sbcl.git

diff --git a/src/compiler/defconstant.lisp b/src/compiler/defconstant.lisp
index 1bb1d27..db7d628 100644
--- a/src/compiler/defconstant.lisp
+++ b/src/compiler/defconstant.lisp
@@ -43,7 +43,7 @@
        (if (boundp name)
            (if (typep name '(or boolean keyword))
                ;; Non-continuable error.
-               (about-to-modify-symbol-value name "define ~S as a constant")
+               (about-to-modify-symbol-value name 'defconstant)
                (let ((old (symbol-value name)))
                  (unless (eql value old)
                    (multiple-value-bind (ignore aborted)
@@ -57,7 +57,7 @@
                      (when aborted
                        (return-from sb!c::%defconstant name))))))
            (warn "redefining a MAKUNBOUND constant: ~S" name)))
-      (:global
+      (:unknown
        ;; (This is OK -- undefined variables are of this kind. So we
        ;; don't warn or error or anything, just fall through.)
        )