X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsymbol.lisp;h=5ef0d7bbb3225f6eaec4a646ae840c4ec10a2ab5;hb=cee8ef591040db9a79cdd19297867672a9529051;hp=7dcfe23f3793fc2c9d7946492260c5f9de78bc28;hpb=fb35df18abde8fc88c521cf7a811f41914a82890;p=sbcl.git

diff --git a/src/code/symbol.lisp b/src/code/symbol.lisp
index 7dcfe23..5ef0d7b 100644
--- a/src/code/symbol.lisp
+++ b/src/code/symbol.lisp
@@ -23,6 +23,14 @@
   (declare (optimize (safety 1)))
   (symbol-value symbol))
 
+#-sb-xc-host
+(define-compiler-macro symbol-value (&whole form symbol &environment env)
+  (when (sb!xc:constantp symbol env)
+    (let ((name (constant-form-value symbol env)))
+      (when (symbolp name)
+        (check-deprecated-variable name))))
+  form)
+
 (defun boundp (symbol)
   #!+sb-doc
   "Return non-NIL if SYMBOL is bound to a value."