From c0a02a29111490e0fa3a78ae0329f228bdcbe6ef Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Fri, 26 Apr 2013 01:37:37 +0200 Subject: [PATCH] Print type of value when handling CHECK-TYPE. --- src/code/target-error.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/code/target-error.lisp b/src/code/target-error.lisp index 9a7aa8f..1d20b51 100644 --- 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) -- 1.7.10.4