wrong column index in FILL-POINTER-OUTPUT-STREAM
After a TERPRI LISP::FILL-POINTER-OUTPUT-STREAM
set CHARPOS to 1, which leads to FRESH-LINE malfunctioning.
CL-USER> (let ((a (make-array 0 :element-type 'character :fill-pointer 0
:adjustable t)))
(with-output-to-string (s a)
(format s "xxx")
(terpri s)
(format t "column: ~S~%" (lisp::charpos s))
(fresh-line s))
a)
column: 1
"xxx
"
CL-USER>
; No value
CL-USER> (with-output-to-string (s)
(format s "xxx")
(terpri s)
(format t "column: ~S~%" (lisp::charpos s))
(fresh-line s))
column: 0
"xxx
"