Changeset 5333

Timestamp:

Oct 9, 2006, 3:34:14 PM (18 years ago)

Author:

Gary Byers

Message:

Write #\Sub's char-code if we can't encode a character in (implicit) iso-8859-1.

File:

• trunk/ccl/level-1/l1-streams.lisp (modified) (3 diffs)

trunk/ccl/level-1/l1-streams.lisp

@@ -1787 +1787 @@
     (if (< code 256)
       (%ioblock-write-u8-element ioblock code)
-      (error "Character ~s can't be encoded on ~s" char (ioblock-stream ioblock)))))
+      (%ioblock-write-u8-element ioblock (char-code #\Sub)))))
 
 (defun %private-ioblock-write-char (ioblock char)
@@ -1833 +1833 @@
         (limit (ioblock-literal-char-code-limit ioblock))
         (encode-function (ioblock-encode-output-function ioblock))
-        (wcf (ioblock-write-char-when-locked-function ioblock))
         (start-char start-char (1+ start-char)))
        ((= i num-chars) (setf (ioblock-charpos ioblock) col) num-chars)
@@ -1840 +1839 @@
            (code (char-code char)))
       (declare (type (mod #x110000) code))
-      (cond ((eq char #\newline)
-             (setq col 0)
-             (funcall wcf ioblock char))
-            (t
-             (incf col)
-             (if (< code limit)
+      (if (eq char #\newline)
+        (setq col 0)
+        (incf col))
+      (if (< code limit)
                (%ioblock-write-u8-element ioblock code)
-               (funcall encode-function char #'%ioblock-write-u8-element ioblock)))))))
+               (funcall encode-function char #'%ioblock-write-u8-element ioblock)))))
+
 
 (declaim (inline %ioblock-write-u16-encoded-char))