1.0.37.50: check for unbound FORMAT-CONTROL for SIMPLE-CONDITIONs

 ...in the default PRINT-OBJECT method.

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 14a50ce..21dacb2 100644 (file)
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -171,7 +171,7 @@
 ;;; The current code doesn't seem to quite match that.
 (def!method print-object ((x condition) stream)
   (if *print-escape*
-      (if (typep x 'simple-condition)
+      (if (and (typep x 'simple-condition) (slot-boundp x 'format-control))
           (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)))

diff --git a/version.lisp-expr b/version.lisp-expr
index ea30468..70a84a8 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -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.49"
+"1.0.37.50"