Changeset 898

Timestamp:

Feb 15, 2005, 5:58:53 PM (20 years ago)

Author:

bryan

Message:

clhs 22.1.3.8 says an array is printed started with #A.

File:

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

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

@@ -1188 +1188 @@
                (stream-write-char stream #\#)
                (%pr-integer rank 10. stream)
-               (stream-write-char stream #\a)
+               (stream-write-char stream #\A)
                (if (eql rank 0)
                  (write-internal stream (aref array) (%i- level 1) nil)