From f754d8ca377b0ebf8a67f585df06411c4d85cc72 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Mon, 12 Aug 2019 11:14:43 +0100 Subject: [PATCH 1/1] src/pset-proto.lisp: Print type names in lowercase in error messages. --- src/pset-proto.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/pset-proto.lisp b/src/pset-proto.lisp index 09547e8..f03ec51 100644 --- a/src/pset-proto.lisp +++ b/src/pset-proto.lisp @@ -93,7 +93,8 @@ ;; say it didn't work. (:method (value type wanted) (if (eql type wanted) value - (error "Incorrect type: expected ~A but found ~A" wanted type))) + (error "Incorrect type: expected ~(~A~) but found ~(~A~)" + wanted type))) ;; If the caller asks for type T then give them the raw thing. (:method (value type (wanted (eql t))) -- 2.11.0