Changeset 9116


Ignore:
Timestamp:
Apr 9, 2008, 8:09:54 PM (11 years ago)
Author:
gz
Message:

pretty-array: do not add a space in 0-rank arrays

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/pprint.lisp

    r6923 r9116  
    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.