Author: hhubner Date: Wed May 14 08:59:11 2008 New Revision: 18
Modified: branches/hans/output.lisp Log: make sbcl happy
Modified: branches/hans/output.lisp ============================================================================== --- branches/hans/output.lisp (original) +++ branches/hans/output.lisp Wed May 14 08:59:11 2008 @@ -93,7 +93,7 @@ (labels ((write-byte* (,byte ,dummy-sink) (declare (ignore ,dummy-sink)) (vector-push-extend ,byte ,sink)) - (write-char (,char) + (write-char* (,char) ,@body)) (loop with ,eol-style = (external-format-eol-style (flexi-stream-external-format ,stream)) @@ -101,11 +101,11 @@ for ,input-char of-type character = (aref ,string ,i) do (if (eql ,input-char #\Newline) (case ,eol-style - (:cr (write-char #\Return)) - (:crlf (write-char #\Return) - (write-char #\Newline)) - (t (write-char #\Newline))) - (write-char ,input-char))) + (:cr (write-char* #\Return)) + (:crlf (write-char* #\Return) + (write-char* #\Newline)) + (t (write-char* #\Newline))) + (write-char* ,input-char))) ,sink)))))))
(define-char-writer ((stream flexi-latin-1-output-stream) char sink)