src/: Fix up some wrong exports.

[sod] / src / method-proto.lisp

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index 7fd08b8..e87745f 100644 (file)
--- a/src/method-proto.lisp
+++ b/src/method-proto.lisp
@@ -257,8 +257,7 @@
 
 ;;; Additional instructions.
 
-(export 'convert-to-ilayout)
-(definst convert-to-ilayout (stream) (class chain-head expr)
+(definst convert-to-ilayout (stream :export t) (class chain-head expr)
   (format stream "SOD_ILAYOUT(~@<~A, ~_~A, ~_~A~:>)"
          class (sod-class-nickname chain-head) expr))