X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/0d07716fe78436ae6c9c324cabdd401c25e336af..fe67c0ec67bbea43585bcc9acecfa98d6775d9af:/tools/autoexport.lisp?ds=inline

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)))