X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/bf8aadd76bceba05d2a325181a71763a5625c89b..ed00691544c3b6d4ad15b1c7ef975964ea72b0b6:/src/method-proto.lisp?ds=sidebyside diff --git a/src/method-proto.lisp b/src/method-proto.lisp index 7fd08b8..e87745f 100644 --- 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))