Changeset 9121


Ignore:
Timestamp:
Apr 10, 2008, 12:21:31 AM (11 years ago)
Author:
gz
Message:

Propagate r9116 from working-0711 branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/pprint.lisp

    r6923 r9121  
    15631563  (cond ((vectorp array) (pretty-vector xp array))
    15641564        ((zerop (array-rank array))
    1565          (write-string++ "#0A " xp 0 4)
     1565         (write-string++ "#0A" xp 0 3)
    15661566         (write+ (aref array) xp))
    15671567        (T (pretty-non-vector xp array))))
Note: See TracChangeset for help on using the changeset viewer.