X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fctor.lisp;h=ca880839a82b98d815b00ef92a81b6782701d92f;hb=d4b738d6c0b354de817fa490b50814e40872b3d0;hp=0ef967b22a167f890c4dd3572837d8e52b2a3057;hpb=860543cc7ba0266e41e1d41ac9b6a208f3795f1a;p=sbcl.git

diff --git a/src/pcl/ctor.lisp b/src/pcl/ctor.lisp
index 0ef967b..ca88083 100644
--- a/src/pcl/ctor.lisp
+++ b/src/pcl/ctor.lisp
@@ -456,7 +456,7 @@
 	       (let ((ps #(.d0. .d1. .d2. .d3. .d4. .d5.)))
 		 (if (array-in-bounds-p ps i)
 		     (aref ps i)
-		     (intern (format nil ".D~D." i) *the-pcl-package*)))))
+		     (intern (format nil ".D~D." i) *pcl-package*)))))
       ;; Loop over supplied initargs and values and record which
       ;; instance and class slots they initialize.
       (loop for (key value) on initargs by #'cddr