PPRINT (setf . a) correctly.

[sbcl.git] / tests / pprint.impure.lisp

diff --git a/tests/pprint.impure.lisp b/tests/pprint.impure.lisp
index 39884e0..4f10bd0 100644 (file)
--- a/tests/pprint.impure.lisp
+++ b/tests/pprint.impure.lisp
@@ -297,5 +297,11 @@
                                    `(progn ,@(identity #1#)))
                                  :circle t :pretty t)))
     (assert (not (search "#2#" string)))))
+
+(with-test (:name :pprint-dotted-setf)
+  (let ((*print-pretty* t))
+    (equal (format nil "~a" '(setf . a))
+           "(SETF . A)")))
+
 \f
 ;;; success