From: Mark Wooding Date: Sun, 26 Jul 2020 00:46:56 +0000 (+0100) Subject: src/codegen-proto.lisp (definst): Don't assume STREAMVAR is `stream'. X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/99f99676202f0dc86146b73ad7fed74716c878cf src/codegen-proto.lisp (definst): Don't assume STREAMVAR is `stream'. Apparently it always is anyway. Oops. --- diff --git a/src/codegen-proto.lisp b/src/codegen-proto.lisp index 0d0bc22..65f4745 100644 --- a/src/codegen-proto.lisp +++ b/src/codegen-proto.lisp @@ -232,7 +232,7 @@ (defmethod print-object ((,inst-var ,class-name) ,streamvar) (with-slots ,(mapcar #'list public private) ,inst-var (if *print-escape* (print-unreadable-object (,inst-var ,streamvar :type t) - (format stream "~@<~@{~S ~@_~S~^ ~_~}~:>" + (format ,streamvar "~@<~@{~S ~@_~S~^ ~_~}~:>" ,@(mappend #'list keys public))) (block ,code ,@body)))) ,@(and export `((export '(,class-name ,constructor-name