Changeset 15275 for release/1.8/source


Ignore:
Timestamp:
Mar 28, 2012, 2:00:07 AM (7 years ago)
Author:
rme
Message:

Merge r15252 from trunk. (See ticket:915)

Location:
release/1.8/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/1.8/source

  • release/1.8/source/lib/pprint.lisp

    r14830 r15275  
    20342034        ((not list-kludge))
    20352035        ((null object)(return-from write-not-pretty nil))
    2036         ((not (consp object))
     2036        ((and (not (consp object)) (not circle))
    20372037         (stream-write-entire-string stream " . "))
    20382038        ((eq circle :first)
    2039          (stream-write-char stream #\()       
     2039         (when (consp object) (stream-write-char stream #\())
    20402040         (write-a-frob object stream level list-kludge)
    2041          (stream-write-char stream #\))
     2041         (when (consp object) (stream-write-char stream #\)))
    20422042         (return-from write-not-pretty nil))                     
    20432043        (t (stream-write-char stream #\space)))
Note: See TracChangeset for help on using the changeset viewer.