X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsaptran.lisp;h=1d6d4ee37f761029c4f6c520332b1e1f3661151f;hb=57e21c4b62e8c1a1ee7ef59ed2abb0c864fb06bc;hp=aa0b505d9750f90a3d720f8dbe051a573358ccbc;hpb=e411bd41397e1df2423838a4f9c2fdaa27727e93;p=sbcl.git

diff --git a/src/compiler/saptran.lisp b/src/compiler/saptran.lisp
index aa0b505..1d6d4ee 100644
--- a/src/compiler/saptran.lisp
+++ b/src/compiler/saptran.lisp
@@ -120,8 +120,8 @@
 ;;;; transforms for optimizing SAP+
 
 (deftransform sap+ ((sap offset))
-  (cond ((and (constant-continuation-p offset)
-	      (eql (continuation-value offset) 0))
+  (cond ((and (constant-lvar-p offset)
+	      (eql (lvar-value offset) 0))
 	 'sap)
 	(t
 	 (extract-fun-args sap 'sap+ 2)