[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

raw stream to lgp2

    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


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