Changeset 5302

Timestamp:

Oct 6, 2006, 3:38:09 AM (18 years ago)

Author:

Gary Byers

Message:

%COPY-STRING-TO-U8: use #\? 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))
-    (setf (aref u8-vector dest-idx) (%scharcode string source-idx))
-    (incf source-idx)
-    (incf dest-idx)))
+    (let* ((char (schar string source-idx))
+           (code (char-code char)))
+      (declare (type (mod #x11000) code))
+      (if (> code #xff)
+        (setq code (char-code #\?)))
+      (setf (aref u8-vector dest-idx) code)
+      (incf source-idx)
+      (incf dest-idx))))