[Sbcl-commits] master: Better error message for CASE-FAILURE.

[stassats <sta...@us...>]

The branch "master" has been updated in SBCL:
       via  16b5714a243c9420f60d634db4acc24a7a6e48bd (commit)
      from  b16749ed2206b2c25ae4bbf66a6a1a3a87e4ca97 (commit)

- Log -----------------------------------------------------------------
commit 16b5714a243c9420f60d634db4acc24a7a6e48bd
Author: Stas Boukarev <sta...@gm...>
Date:   Tue May 5 21:13:28 2015 +0300

    Better error message for CASE-FAILURE.
    
    Report the wanted keys using *print-escape* = t.
---
 src/code/error.lisp |   11 ++++++-----
 1 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/src/code/error.lisp b/src/code/error.lisp
index b97180f..87be7ec 100644
--- a/src/code/error.lisp
+++ b/src/code/error.lisp
@@ -71,12 +71,13 @@
   ((name :reader case-failure-name :initarg :name)
    (possibilities :reader case-failure-possibilities :initarg :possibilities))
   (:report
-    (lambda (condition stream)
-      (format stream "~@<~S fell through ~S expression.~@[ ~
+   (lambda (condition stream)
+     (let ((*print-escape* t))
+       (format stream "~@<~S fell through ~S expression.~@[ ~
                       ~:_Wanted one of (~/pprint-fill/).~]~:>"
-              (type-error-datum condition)
-              (case-failure-name condition)
-              (case-failure-possibilities condition)))))
+               (type-error-datum condition)
+               (case-failure-name condition)
+               (case-failure-possibilities condition))))))
 
 (define-condition compiled-program-error (program-error)
   ((message :initarg :message :reader program-error-message)

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL