Changeset 5592

Timestamp:

Dec 4, 2006, 2:12:01 PM (18 years ago)

Author:

Gary Byers

Message:

If stream element type upgrades to FIXNUM, upgrade it further (to
largest supported SIGNED-BYTE element-type.)

File:

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

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

@@ -2984 +2984 @@
     (if (eq upgraded 'bit)
       '(unsigned-byte 8)
-      (if (eq upgraded t)
-        (error "Stream element-type ~s can't be reasonably supported." element-type)
-        upgraded))))
+      (if (eq upgraded 'fixnum)
+        #+64-bit-target '(signed-byte 64) #+32-bit-target '(signed-byte 32)
+        (if (eq upgraded t)
+          (error "Stream element-type ~s can't be reasonably supported." element-type)
+          upgraded)))))
 
 (defun init-stream-ioblock (stream