Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Nicer printing of test results

  • Loading branch information...
commit 5f916ff039b77293c521a9f489fba2b5ff9a02ec 1 parent 33a1bee
@sionescu sionescu authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  tests.lisp
View
2  tests.lisp
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.