X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=a9f9fe86c21a7ee78816c2e64a3dc73d6852b9dd;hb=5cd15f4133804a16c5d367556da160144e741852;hp=782dcdcd7b79736e6f7c7fa41d17c2bc784c33ce;hpb=43caa89c20c70fdef77797fe31e6fd09bfcf2527;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 782dcdc..a9f9fe8 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -69,7 +69,7 @@
 (!defstruct-with-alternate-metaclass condition
   :slot-names (actual-initargs assigned-slots)
   :boa-constructor %make-condition-object
-  :superclass-name instance
+  :superclass-name t
   :metaclass-name condition-classoid
   :metaclass-constructor make-condition-classoid
   :dd-type structure)