[flexi-streams-cvs] r18 - branches/hans

[hhubner at common-lisp.net]

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)
                         , at 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)