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 0d0bc222f7486c06a4284eb4354487db81815f03..65f474518b4d82166d6f01542be7b8ae8a8da794 100644 (file)
--- 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)
           (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
                           ,@(mappend #'list keys public)))
                 (block ,code ,@body))))
         ,@(and export `((export '(,class-name ,constructor-name