0.6.11.10:

[sbcl.git] / src / code / target-numbers.lisp

diff --git a/src/code/target-numbers.lisp b/src/code/target-numbers.lisp
index f77355d..8cc52ab 100644 (file)
--- a/src/code/target-numbers.lisp
+++ b/src/code/target-numbers.lisp
@@ -116,7 +116,7 @@
                    (error 'simple-type-error :datum ,var
                           :expected-type ',type
                           :format-control
-                          "Argument ~A is not a ~S: ~S."
+                          "~@<Argument ~A is not a ~S: ~2I~_~S~:>"
                           :format-arguments
                           (list ',var ',type ,var))))))