X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fpprint.impure.lisp;h=4f10bd01c1e91b00058203c84cd2cad846d31660;hb=062283b901155792f65775491aea51481c56faaa;hp=39884e05fb77d8ada4ba6bcca06e33c07288709b;hpb=70f323d9b06b95ed37a447742c1925906985c088;p=sbcl.git

diff --git a/tests/pprint.impure.lisp b/tests/pprint.impure.lisp
index 39884e0..4f10bd0 100644
--- 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)")))
+
 
 ;;; success