0.7.7.10:

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

diff --git a/src/pcl/dlisp.lisp b/src/pcl/dlisp.lisp
index a182810..482256e 100644 (file)
--- a/src/pcl/dlisp.lisp
+++ b/src/pcl/dlisp.lisp
@@ -121,7 +121,7 @@
   (let ((instance nil)
        (arglist  ())
        (closure-variables ())
-       (field (first-wrapper-cache-number-index))
+       (field +first-wrapper-cache-number-index+)
        (readp (eq reader/writer :reader))
        (read-form (emit-slot-read-form class-slot-p 'index 'slots)))
     ;;we need some field to do the fast obsolete check