Changeset 13407


Ignore:
Timestamp:
07/15/11 21:18:28 (10 years ago)
Author:
ehuelsmann
Message:

Eliminate a series of PPRINT.* ansi test suite failures
(dropping my test failure count from 27 to 20!).

File:
1 edited

Legend:

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

    r12230 r13407  
    614614      (apply fn stream args)
    615615      (let ((*abbreviation-happened* nil)
    616       (sys::*circularity-hash-table*
    617              (if (and *print-circle* (null sys::*circularity-hash-table*))
    618                  (make-hash-table :test 'eq)
    619                  sys::*circularity-hash-table*))
    620616      (*result* nil))
    621   (xp-print fn (sys:out-synonym-of stream) args)
     617        (if (and *print-circle* (null sys::*circularity-hash-table*))
     618            (let ((sys::*circularity-hash-table* (make-hash-table :test 'eq)))
     619              (xp-print fn (make-broadcast-stream) args)
     620              (let ((sys::*circularity-counter* 0))
     621                (xp-print fn (sys:out-synonym-of stream) args)
     622                ))
     623            (xp-print fn (sys:out-synonym-of stream) args))
    622624  *result*)))
    623625
Note: See TracChangeset for help on using the changeset viewer.