X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Feval.lisp;h=53de4081e591c1fa5f5e3293f046c16431338d0c;hb=672b2f6cb751566526c7f3bb3de6b7d8424760e2;hp=39c295d7c83dea4e2a469f91f50344f2d58e0788;hpb=9b1fade83db8453b75b8c7380eb12ce41b5b889c;p=sbcl.git

diff --git a/src/code/eval.lisp b/src/code/eval.lisp
index 39c295d..53de408 100644
--- a/src/code/eval.lisp
+++ b/src/code/eval.lisp
@@ -125,9 +125,7 @@
         (typecase exp
           (symbol
            (ecase (info :variable :kind exp)
-             (:constant
-              (values (info :variable :constant-value exp)))
-             ((:special :global)
+             ((:special :global :constant)
               (symbol-value exp))
              ;; FIXME: This special case here is a symptom of non-ANSI
              ;; weirdness in SBCL's ALIEN implementation, which could