Added autoexport of defmethod name

diff --git a/tools/autoexport.lisp b/tools/autoexport.lisp
index b4e479c09011e0e24b46bd99b9dfc976ca643584..f50479255440d6fda060d57196367b2128921ff2 100644 (file)
--- a/tools/autoexport.lisp
+++ b/tools/autoexport.lisp
@@ -102,6 +102,10 @@ (defexport defgeneric (fname &rest args)
   (declare (ignore args))
   (export-fname fname))
   
   (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)))
 
 (defexport progn (&rest body)
   (apply #'nconc (map 'list #'list-autoexported-symbols body)))