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

Re: output_streams



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