X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsxhash.lisp;h=8b13e798d14521a1b3c52713948e62d6b60e16a0;hb=dca55270cf662763243dfc8ee207370473da2a6f;hp=facc63398d56591e760cf72dc34c128f776512f4;hpb=8fb02633217a721b85487531709779f338d02438;p=sbcl.git

diff --git a/src/code/sxhash.lisp b/src/code/sxhash.lisp
index facc633..8b13e79 100644
--- a/src/code/sxhash.lisp
+++ b/src/code/sxhash.lisp
@@ -98,12 +98,12 @@
 ;;; easily do this optimization in the cross-compiler, and SBCL itself
 ;;; doesn't seem to need this optimization, so we don't try.
 (deftransform sxhash ((x) (simple-string))
-  (if #+sb-xc-host nil #-sb-xc-host (constant-continuation-p x)
-      (sxhash (continuation-value x))
+  (if #+sb-xc-host nil #-sb-xc-host (constant-lvar-p x)
+      (sxhash (lvar-value x))
       '(%sxhash-simple-string x)))
 (deftransform sxhash ((x) (symbol))
-  (if #+sb-xc-host nil #-sb-xc-host (constant-continuation-p x)
-      (sxhash (continuation-value x))
+  (if #+sb-xc-host nil #-sb-xc-host (constant-lvar-p x)
+      (sxhash (lvar-value x))
       '(%sxhash-simple-string (symbol-name x))))