X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-numbers.lisp;h=8cc52ab5b2ea406c6bfe3aacc02938e7583505d7;hb=0b5610d8a220a4b20cbeac958953ca4d67c00038;hp=f77355da6097a9199d3a928bd426c3bb26760210;hpb=8624c52d7620e8a4d3de23c363e843a10815f4f4;p=sbcl.git

diff --git a/src/code/target-numbers.lisp b/src/code/target-numbers.lisp
index f77355d..8cc52ab 100644
--- 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))))))