raw stream to lgp2

[MMcM@TITANIA.Oberon.COM (Mike McMahon)]

    Date: Wed, 12 Jun 91 09:22:07 -0600
    From: drstrip@cs.sandia.gov (David R. Strip)

    How do I create a stream to a postscript printer that just sends
    the chars without interpreting them? I can't seem to figure it
    out, though it should be easy. Thanks
    drstrip@cs.sandia.gov

Try

(with-open-stream (binary-stream (send printer :hardcopy-device-stream nil))
  (let ((character-stream (si:thin-character-stream binary-stream)))
    (output character-stream)))