Commit 82df4892 authored by pfdietz's avatar pfdietz

Another test of pprint-indent (with various floats as the indent parameter)

parent 4db53d8f
......@@ -40,6 +40,20 @@
(pprint-indent :block 0.1 s))))
(deftest pprint-indent.6
(let ((*print-pretty* nil))
(loop for x in '(1.0s0 1.0f0 1.0d0 1.0l0)
(with-open-stream (s (make-string-output-stream))
(pprint-indent :block x s)))
collect x)))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment