Changeset 898


Ignore:
Timestamp:
Feb 16, 2005, 1:58:53 AM (17 years ago)
Author:
bryan
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-io.lisp

    r897 r898  
    11881188               (stream-write-char stream #\#)
    11891189               (%pr-integer rank 10. stream)
    1190                (stream-write-char stream #\a)
     1190               (stream-write-char stream #\A)
    11911191               (if (eql rank 0)
    11921192                 (write-internal stream (aref array) (%i- level 1) nil)
Note: See TracChangeset for help on using the changeset viewer.