X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefs.lisp;h=068b49f4f60016a14fbf0fa2c9c8aa4304c4b7c9;hb=119d1c157e519573074720b7897a9fa918329ac5;hp=e01064eb297e8233a49cf733bfc58162a3ca54c8;hpb=da304936655b6690b4ddf15fb2936fe3d219f2ac;p=sbcl.git

diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index e01064e..068b49f 100644
--- a/src/pcl/defs.lisp
+++ b/src/pcl/defs.lisp
@@ -660,10 +660,7 @@
     :reader class-direct-slots)
    (slots
     :initform ()
-    :reader class-slots)
-   (slot-vector
-    :initform #(nil)
-    :reader class-slot-vector)))
+    :reader class-slots)))
 
 ;;; The class STD-CLASS is an implementation-specific common
 ;;; superclass of the classes STANDARD-CLASS and