X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdlisp.lisp;h=482256e4d379fbeb539446681736abc70837d5c9;hb=2e91e29892268b2c7e5ab557e8192fa03bce68f2;hp=a1828105ac791c2e8080d30aa19ad7fc0620e12b;hpb=106e6fe2df729b6027718f6f056721a95c047c17;p=sbcl.git

diff --git a/src/pcl/dlisp.lisp b/src/pcl/dlisp.lisp
index a182810..482256e 100644
--- 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