Changeset 913

Timestamp:

Feb 16, 2005, 11:19:01 AM (20 years ago)

Author:

bryan

Message:

adjustable arrays should print readably when *print-array*
(per clhs 22.1.3.7-8)

File:

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

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

@@ -1184 +1184 @@
                t))
             ((and print-array (and (eq (array-element-type array) t)
-                                   (not fill-pointer?)(not adjustable?)))
+                                   (not fill-pointer?)))
              (let ((rank (array-rank array)))
                (stream-write-char stream #\#)