Changeset 5119

Timestamp:

Sep 5, 2006, 4:13:03 AM (18 years ago)

Author:

Gary Byers

Message:

Use heap-ivectors of element-type (UNSIGNED-BYTE 8) for character streams. (Should
really depend on the coding system in use.)

File:

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

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

@@ -1109 +1109 @@
       (unless (ioblock-inbuf ioblock)
         (multiple-value-bind (buffer ptr in-size-in-octets)
-            (make-heap-ivector insize element-type)
+            (make-heap-ivector insize (if character-p '(unsigned-byte 8) element-type))
           (setf (ioblock-inbuf ioblock)
                 (make-io-buffer :buffer buffer
@@ -1130 +1130 @@
         (unless (ioblock-outbuf ioblock)
           (multiple-value-bind (buffer ptr out-size-in-octets)
-              (make-heap-ivector outsize element-type)
+              (make-heap-ivector outsize (if character-p '(unsigned-byte 8) element-type))
             (setf (ioblock-outbuf ioblock)
                   (make-io-buffer :buffer buffer