From 0e68e0b164c2a57b1984f91a48dc5c61c485c0e8 Mon Sep 17 00:00:00 2001 Message-Id: <0e68e0b164c2a57b1984f91a48dc5c61c485c0e8.1717609154.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sun, 21 Oct 2001 11:44:48 +0000 Subject: [PATCH] Added autoexport of defmethod name Organization: Straylight/Edgeware From: espen --- tools/autoexport.lisp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/tools/autoexport.lisp b/tools/autoexport.lisp index b4e479c..f504792 100644 --- a/tools/autoexport.lisp +++ b/tools/autoexport.lisp @@ -102,6 +102,10 @@ (defexport defgeneric (fname &rest args) (declare (ignore args)) (export-fname fname)) +(defexport defmethod (name &rest rest) + (declare (ignore rest)) + name) + (defexport progn (&rest body) (apply #'nconc (map 'list #'list-autoexported-symbols body))) -- [mdw]