Permalink
Browse files

Nicer printing of test results

  • Loading branch information...
1 parent 33a1bee commit 5f916ff039b77293c521a9f489fba2b5ff9a02ec @sionescu sionescu committed Mar 31, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 tests.lisp
View
@@ -22,7 +22,7 @@
(dolist (*read-default-float-format* '(double-float single-float))
(let ((left (read-from-string value))
(right (parse-number value)))
- (format t "~&~16@A (~16@A) = ~16A ~16A~%"
+ (format t "~&~18@S (~26@A) = ~26A ~20A~%"
value
left
right

0 comments on commit 5f916ff

Please sign in to comment.