Changeset 15703

Timestamp:

06/06/23 06:38:20 (6 months ago)

Author:

Mark Evenson

Message:

Fix FORMAT for SYNONYM-STREAM of a Gray Stream

File:

• trunk/abcl/src/org/armedbear/lisp/format.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/format.lisp

@@ -1748 +1748 @@
      (%format *standard-output* control-string format-arguments)
      nil)
-    ((or stream xp::xp-structure)
+    (stream
+     (%format (sys:out-synonym-of destination) control-string format-arguments)
+     nil)
+    (xp::xp-structure
      (%format destination control-string format-arguments)
      nil)))