Changeset 913


Ignore:
Timestamp:
Feb 16, 2005, 7:19:01 PM (17 years ago)
Author:
bryan
Message:

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

File:
1 edited

Legend:

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

    r898 r913  
    11841184               t))
    11851185            ((and print-array (and (eq (array-element-type array) t)
    1186                                    (not fill-pointer?)(not adjustable?)))
     1186                                   (not fill-pointer?)))
    11871187             (let ((rank (array-rank array)))
    11881188               (stream-write-char stream #\#)
Note: See TracChangeset for help on using the changeset viewer.