X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpprint.lisp;h=9fb162e599aaf983324d72228ad8940f327e9ce1;hb=25fe91bf63fd473d9316675b0e0ca9be0079e9eb;hp=7331459d28c52a88b90f5935a521d8ae5e52cfcc;hpb=7ebe82f662f0fd0038479cbb057ec77867ab6f7e;p=sbcl.git

diff --git a/src/code/pprint.lisp b/src/code/pprint.lisp
index 7331459..9fb162e 100644
--- a/src/code/pprint.lisp
+++ b/src/code/pprint.lisp
@@ -1282,9 +1282,13 @@
 
 (defun pprint-fun-call (stream list &rest noise)
   (declare (ignore noise))
-  (funcall (formatter "~:<~^~W~^ ~:_~:I~@{~W~^ ~_~}~:>")
+  (funcall (formatter "~:<~^~W~^ ~:_~:I~@{~W~^ ~:_~}~:>")
            stream
            list))
+
+(defun pprint-data-list (stream list &rest noise)
+  (declare (ignore noise))
+  (funcall (formatter "~:<~@{~W~^ ~:_~}~:>") stream list))
 
 ;;;; the interface seen by regular (ugly) printer and initialization routines
 
@@ -1302,8 +1306,10 @@
     ;; printers for regular types
     (/show0 "doing SET-PPRINT-DISPATCH for regular types")
     (set-pprint-dispatch 'array #'pprint-array)
-    (set-pprint-dispatch '(cons symbol)
+    (set-pprint-dispatch '(cons (and symbol (satisfies fboundp)))
                          #'pprint-fun-call -1)
+    (set-pprint-dispatch '(cons symbol)
+                         #'pprint-data-list -2)
     (set-pprint-dispatch 'cons #'pprint-fill -2)
     ;; cons cells with interesting things for the car
     (/show0 "doing SET-PPRINT-DISPATCH for CONS with interesting CAR")