X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fslots.lisp;h=b6282b991cc33f85da281c99372952d1ca4d7fcc;hb=74a1797f60e26c7adbc491840f89bbaab08e504d;hp=f406c6fd91f603fa0a34eb2a3d7b2cdd87a8a1f3;hpb=94476bde095777523c57d3f1e16e8cbcd8f6a2dd;p=sbcl.git

diff --git a/src/pcl/slots.lisp b/src/pcl/slots.lisp
index f406c6f..b6282b9 100644
--- a/src/pcl/slots.lisp
+++ b/src/pcl/slots.lisp
@@ -465,3 +465,10 @@
   (declare (ignore initargs))
   (error "Cannot allocate an instance of ~S." class)) ; So sayeth AMOP
 
+;;; AMOP says that CLASS-SLOTS signals an error for unfinalized classes.
+(defmethod class-slots :before ((class slot-class))
+  (unless (class-finalized-p class)
+    (error 'simple-reference-error
+           :format-control "~S called on ~S, which is not yet finalized."
+           :format-arguments (list 'class-slots class)
+           :references (list '(:amop :generic-function class-slots)))))