0.pre7.84:

[sbcl.git] / src / compiler / ir1-translators.lisp

diff --git a/src/compiler/ir1-translators.lisp b/src/compiler/ir1-translators.lisp
index 2cb2295..a04fefc 100644 (file)
--- a/src/compiler/ir1-translators.lisp
+++ b/src/compiler/ir1-translators.lisp
@@ -713,9 +713,7 @@
                         (find-free-variable name))))
          (etypecase leaf
            (leaf
-            (when (or (constant-p leaf)
-                      (and (global-var-p leaf)
-                           (eq (global-var-kind leaf) :constant)))
+            (when (constant-p leaf)
               (compiler-error "~S is a constant and thus can't be set." name))
             (when (and (lambda-var-p leaf)
                        (lambda-var-ignorep leaf))