In article <·····················@swisun31.swi.psy.uva.nl> you write:
>(defun pprint-logical-connector (stream list)
> ;; and, or, =>, <=, <=>
> (pprint-logical-block (stream list :prefix "(" :suffix ")")
> (write (pprint-pop))
> (write-char #\space)
> (pprint-indent :current 0)
> (loop (write (pprint-pop))
> (pprint-exit-if-list-exhausted)
> (write-char #\space)
> (pprint-newline :mandatory))))
Your inner output function calls should provide STREAM as the optional
stream argument. They're all defaulting to *STANDARD-OUTPUT*.
Or you could use *STANDARD-OUTPUT* as the parameter variable to
PPRINT-LOGICAL-CONNECTOR. However, I think this would be poor style.
--
Barry Margolin
System Manager, Thinking Machines Corp.
······@think.com {uunet,harvard}!think!barmar