X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/77d83e015f7cd280b385ad53c486e2c27ad6152f..167524b5890cdbf4a832b1766a328f6d8a1f8f04:/doc/list-exports.lisp

diff --git a/doc/list-exports.lisp b/doc/list-exports.lisp
index 598d1c7..34b1497 100644
--- a/doc/list-exports.lisp
+++ b/doc/list-exports.lisp
@@ -28,8 +28,12 @@
     (and export
 	 (list* (symbolicate code '-inst)
 		(symbolicate 'make- code '-inst)
-		(mapcar (lambda (arg)
-			  (symbolicate 'inst- arg))
+		(mapcan (lambda (arg)
+			  (let ((sym (if (listp arg) (car arg) arg)))
+			    (cond ((char= (char (symbol-name sym) 0) #\&)
+				   nil)
+				  (t
+				   (list (symbolicate 'inst- sym))))))
 			args)))))
 
 (defmethod form-list-exports ((head (eql 'sod::define-tagged-type)) tail)