Re: output_streams

[Charles Dolan <cpd@UCLA-LOCUS>]

Setting the LINE-LENGTH of a stream doesn't seem to work. I solved the
problem by constructing my own steam object around the stream I wanted
to set the LINE-LENGTH for. Here is an aproximation to the code.

(DEFINE (MAKE-NEW-STREAM STREAM)
  (LET ((LL (LINE-LENGTH STREAM)))
   (OBJECT NIL
	((WRITE-CHAR SELF CHAR) (WRITE-CHAR STREAM CHAR))
	((LINE-LENGTH SELF) LL)
	(((SETTER LINE-LENGTH) SELF V) (SET LL V)))))

The if you want you can switch (STANDARD-OUTPUT) to that.

-Charlie