From aee2ecd4464d6fa16896c5eb987f4da34db29bdb Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Sun, 13 Mar 2005 18:01:05 +0000 Subject: [PATCH] Added form to export symbols from DEFINE-CONDITION Organization: Straylight/Edgeware From: espen --- tools/autoexport.lisp | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) diff --git a/tools/autoexport.lisp b/tools/autoexport.lisp index f504792..f6464a4 100644 --- a/tools/autoexport.lisp +++ b/tools/autoexport.lisp @@ -82,14 +82,11 @@ (defexport deftype (name &rest rest) (declare (ignore rest)) name) -(defexport defclass (class superclasses &optional slotdefs &rest options) - (declare (ignore superclasses options)) +(defun export-defclass-form (class slotdefs) (cons class - (apply - #'nconc - (map - 'list + (apply #'nconc + (map 'list #'(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)))) +(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)) -- [mdw]