From 99f99676202f0dc86146b73ad7fed74716c878cf Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sun, 26 Jul 2020 01:46:56 +0100 Subject: [PATCH] src/codegen-proto.lisp (definst): Don't assume STREAMVAR is `stream'. Apparently it always is anyway. Oops. --- src/codegen-proto.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 @@ (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 -- 2.11.0