1.0.37.48: nicer *PRINT-ESCAPE* printout for SIMPLE-CONDITIONs
authorNikodemus Siivola <nikodemus@random-state.net>
Wed, 7 Apr 2010 13:15:13 +0000 (13:15 +0000)
committerNikodemus Siivola <nikodemus@random-state.net>
Wed, 7 Apr 2010 13:15:13 +0000 (13:15 +0000)
 ...which is to say print the format control string to make them more
 identifiable form the escaped output.

src/code/condition.lisp
version.lisp-expr

index f9909cb..14a50ce 100644 (file)
 ;;; The current code doesn't seem to quite match that.
 (def!method print-object ((x condition) stream)
   (if *print-escape*
-      (print-unreadable-object (x stream :type t :identity t))
+      (if (typep x 'simple-condition)
+          (print-unreadable-object (x stream :type t :identity t)
+            (format stream "~S" (simple-condition-format-control x)))
+          (print-unreadable-object (x stream :type t :identity t)))
       ;; KLUDGE: A comment from CMU CL here said
       ;;   7/13/98 BUG? CPL is not sorted and results here depend on order of
       ;;   superclasses in define-condition call!
index 56a62a3..fed5edb 100644 (file)
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.37.47"
+"1.0.37.48"