Added form to export symbols from DEFINE-CONDITION

diff --git a/tools/autoexport.lisp b/tools/autoexport.lisp
index f50479255440d6fda060d57196367b2128921ff2..f6464a44de102ea88ee9762979aa734ccff46a55 100644 (file)
--- a/tools/autoexport.lisp
+++ b/tools/autoexport.lisp
@@ -82,14 +82,11 @@ (defexport deftype (name &rest rest)
   (declare (ignore rest))
   name)
 
   (declare (ignore rest))
   name)
 

-(defexport defclass (class superclasses &optional slotdefs &rest options)
-  (declare (ignore superclasses options))
+(defun export-defclass-form (class slotdefs)

   (cons
    class
   (cons
    class

-   (apply
-    #'nconc
-    (map
-     'list
+   (apply #'nconc
+    (map 'list

      #'(lambda (slotdef)
         (if (symbolp slotdef)
             (list slotdef)
      #'(lambda (slotdef)
         (if (symbolp slotdef)
             (list slotdef)


@@ -98,6 +95,14 @@ (defexport defclass (class superclasses &optional slotdefs &rest options)
             (delete nil (list name reader (export-fname writer) accessor)))))
      slotdefs))))
 
             (delete nil (list name reader (export-fname writer) accessor)))))
      slotdefs))))
 

+(defexport defclass (class superclasses &optional slotdefs &rest options)
+  (declare (ignore superclasses options))
+  (export-defclass-form class slotdefs))
+
+(defexport define-condition (class superclasses &optional slotdefs &rest options)
+  (declare (ignore superclasses options))
+  (export-defclass-form class slotdefs))
+

 (defexport defgeneric (fname &rest args)
   (declare (ignore args))
   (export-fname fname))
 (defexport defgeneric (fname &rest args)
   (declare (ignore args))
   (export-fname fname))