projects
/
sbcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
52ce832
)
Print type of value when handling CHECK-TYPE.
helpful-type-errors
author
Olof-Joachim Frahm
<olof@macrolet.net>
Thu, 25 Apr 2013 23:37:37 +0000
(
01:37
+0200)
committer
Olof-Joachim Frahm
<olof@macrolet.net>
Wed, 23 Oct 2013 21:29:52 +0000
(23:29 +0200)
src/code/target-error.lisp
patch
|
blob
|
history
diff --git
a/src/code/target-error.lisp
b/src/code/target-error.lisp
index
9a7aa8f
..
1d20b51
100644
(file)
--- a/
src/code/target-error.lisp
+++ b/
src/code/target-error.lisp
@@
-249,8
+249,10
@@
with that condition (or with no condition) will be returned."
:datum place-value
:expected-type type
:format-control
- "The value of ~S is ~S, which is not ~:[of type ~S~;~:*~A~]."
- :format-arguments (list place place-value type-string type))))
+ "The value of ~S is ~S, which is not ~:[of type ~S~;~:*~A~*~] ~
+ but ~2:*~:[~;of type ~]~*~S."
+ :format-arguments (list place place-value type-string type
+ (type-of place-value)))))
(restart-case (error condition)
(store-value (value)
:report (lambda (stream)