Improve presentation of conditon that forced entry into the debugger.
authorJean-Claude Beaudoin <jean.claude.beaudoin@gmail.com>
Mon, 15 Jul 2013 10:53:14 +0000 (06:53 -0400)
committerJean-Claude Beaudoin <jean.claude.beaudoin@gmail.com>
Mon, 15 Jul 2013 10:53:14 +0000 (06:53 -0400)
src/lsp/top.lsp

index c0cb93e..d99e3c4 100644 (file)
@@ -1394,7 +1394,9 @@ package."
         (*print-circle* t)
         (*readtable* (or *break-readtable* *readtable*))
         (*break-message* ;;(format nil "~&~A~%" condition)
-                         (concatenate 'string (princ-to-string condition) (string #\newline))
+                         (concatenate 'string
+                                       (prin1-to-string condition) ":" (string #\newline)
+                                       "    " (princ-to-string condition) (string #\newline))
                          )
         (*break-level* (1+ *break-level*))
         (break-level *break-level*)