0.6.8.9:

[sbcl.git] / src / compiler / proclaim.lisp

diff --git a/src/compiler/proclaim.lisp b/src/compiler/proclaim.lisp
index 0669cab..7dcfa27 100644 (file)
--- a/src/compiler/proclaim.lisp
+++ b/src/compiler/proclaim.lisp
@@ -130,6 +130,8 @@
        (dolist (name args)
         (unless (symbolp name)
           (error "can't declare a non-symbol as SPECIAL: ~S" name))
+        (when (constantp name)
+          (error "can't declare a constant as SPECIAL: ~S" name))
         (clear-info :variable :constant-value name)
         (setf (info :variable :kind name) :special)))
       (type