X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=253b76f7bc7c8b3af7fa037fedf41f6b4f65a4a1;hb=98c725660502dc1a761e60ac935f95ed60143021;hp=8c19059ac421f7dbcdaaf5d7469c2806b630720c;hpb=444d2072bc52e60a41af62ee22e343e76109212f;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 8c19059..253b76f 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -41,7 +41,7 @@
 
 (/show0 "condition.lisp 24")
 
-(def!struct (condition-classoid (:include slot-classoid)
+(def!struct (condition-classoid (:include classoid)
                                 (:constructor make-condition-classoid))
   ;; list of CONDITION-SLOT structures for the direct slots of this
   ;; class