Changeset 5332

Timestamp:

Oct 9, 2006, 3:33:26 PM (18 years ago)

Author:

Gary Byers

Message:

%COPY-STRING-TO-U8: use #\Sub (ascii 26) as a replacement character.

File:

• trunk/ccl/level-0/l0-misc.lisp (modified) (1 diff)

trunk/ccl/level-0/l0-misc.lisp

@@ -45 +45 @@
        ((= i n) u8-vector)
     (declare (fixnum i))
-    (let* ((char (schar string source-idx))
-           (code (char-code char)))
+    (let* ((code (%scharcode string source-idx)))
       (declare (type (mod #x11000) code))
       (if (> code #xff)
-        (setq code (char-code #\?)))
+        (setq code (char-code #\Sub)))
       (setf (aref u8-vector dest-idx) code)
       (incf source-idx)