0.7.4.40:

[sbcl.git] / src / pcl / cache.lisp

diff --git a/src/pcl/cache.lisp b/src/pcl/cache.lisp
index da80465..3ed4110 100644 (file)
--- 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