X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fcache.lisp;h=3ed4110da915480eec8f22e69fd5cc11d3232962;hb=422b88abf96f4842a3d0999cd3b80d96f5a153d6;hp=da804659716653b3abfca12001f3f4a361f670f7;hpb=50462f68bf70faf0bd96de7517643afb740543e6;p=sbcl.git

diff --git a/src/pcl/cache.lisp b/src/pcl/cache.lisp
index da80465..3ed4110 100644
--- a/src/pcl/cache.lisp
+++ b/src/pcl/cache.lisp
@@ -446,7 +446,7 @@
   (let* ((owrapper (wrapper-of instance)))
     (if (not (invalid-wrapper-p owrapper))
 	owrapper
-	(let* ((state (wrapper-state wrapper))
+	(let* ((state (wrapper-state owrapper))
 	       (nwrapper
 		(ecase (car state)
 		  (:flush