Changeset 15252

Timestamp:

Mar 14, 2012, 11:59:28 AM (13 years ago)

Author:

Gary Byers

Message:

WRITE-NOT-PRETTY: handle circularity/dotted lists correctly.
Fixes ticket:915.

File:

• trunk/source/lib/pprint.lisp (modified) (1 diff)

trunk/source/lib/pprint.lisp

@@ -2034 +2034 @@
         ((not list-kludge))
         ((null object)(return-from write-not-pretty nil))
-        ((not (consp object))
+        ((and (not (consp object)) (not circle))
          (stream-write-entire-string stream " . "))
         ((eq circle :first)
-         (stream-write-char stream #\()        
+         (when (consp object) (stream-write-char stream #\())
          (write-a-frob object stream level list-kludge)
-         (stream-write-char stream #\))
+         (when (consp object) (stream-write-char stream #\)))
          (return-from write-not-pretty nil))                     
         (t (stream-write-char stream #\space)))