[Sbcl-devel] Cute little pretty printer bug

[Douglas K. <do...@go...>]

* (defvar *foo* (cons 'setf #(this is a test)))
*FOO*

* *foo*
(SETF #(THIS IS A TEST))

* (write *foo* :pretty nil)
(SETF . #(THIS IS A TEST))