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

diff --git a/src/pcl/ctor.lisp b/src/pcl/ctor.lisp
index 0e094b5..0ef967b 100644
--- a/src/pcl/ctor.lisp
+++ b/src/pcl/ctor.lisp
@@ -285,6 +285,7 @@
     ;; together with the system-defined ones in what
     ;; COMPUTE-APPLICABLE-METHODS returns.
     (or (and (not (structure-class-p class))
+	     (not (condition-class-p class))
 	     (null (cdr make-instance-methods))
 	     (null (cdr allocate-instance-methods))
 	     (null (check-initargs-1 class (plist-keys (ctor-initargs ctor))