Ignore:
Timestamp:
06/10/09 19:09:32 (12 years ago)
Author:
ehuelsmann
Message:

Fix Gray streams interaction with the pretty printer.
Fix Gray streams STREAM-READ-SEQUENCE and STREAM-WRITE-SEQUENCE

not having the same &OPTIONAL arguments as in Allegro CL.

Compensate for the fact that the upperbound of a "bounding sequence
designator" pair (END) may be NIL (even when supplied).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/pprint.lisp

    r11391 r12013  
    769769
    770770(defun write-string (string &optional (stream *standard-output*)
    771                             &key (start 0) (end (length string)))
     771                            &key (start 0) end)
    772772  (setf stream (sys:out-synonym-of stream))
     773  (setf end (or end (length string))) ;; default value for end is NIL
    773774  (if (xp-structure-p stream)
    774775      (write-string+ string stream start end)
     
    783784
    784785(defun write-line (string &optional (stream *standard-output*)
    785        &key (start 0) (end (length string)))
     786       &key (start 0) end)
    786787  (setf stream (sys:out-synonym-of stream))
     788  (setf end (or end (length string)))
    787789  (cond ((xp-structure-p stream)
    788790         (write-string+ string stream start end)
Note: See TracChangeset for help on using the changeset viewer.