X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/1344e1f9c923a4d6602d64a33da175f48c7b7b64..34c51b1c9911d604386f0dc77336ad52ea81c68e:/src/codegen-proto.lisp

diff --git a/src/codegen-proto.lisp b/src/codegen-proto.lisp
index 571f0b0..7c8f65c 100644
--- a/src/codegen-proto.lisp
+++ b/src/codegen-proto.lisp
@@ -167,7 +167,10 @@
 		 (format stream "~@<~@{~S ~@_~S~^ ~_~}~:>"
 			 ,@(mappend #'list keys args)))
 	       (progn ,@body))))
-       ,@(and export `((export '(,class-name ,constructor-name))))
+       ,@(and export `((export '(,class-name ,constructor-name
+				 ,@(mapcar (lambda (arg)
+					     (symbolicate 'inst- arg))
+					   args)))))
        ',code)))
 
 ;; Important instruction classes.