(print (make-condition 'simple-type-error)) signalled an unbound slot
error.
Reported by Eric Marsden, fixes lp#1184586.
types. (reported by Vsevolod Dyomkin)
* bug fix: sb-bsd-sockets has correct declaration of the canonname field of
addrinfo. (lp#1187041, patch by Jerry James)
+ * bug fix: uninitialized type-error conditions can now be printed.
+ (lp#1184586)
changes in sbcl-1.1.8 relative to sbcl-1.1.7:
* notice: The implementation of MAP-ALLOCATED-OBJECTS (the heart of
(type-error-expected-type condition)))))
(def!method print-object ((condition type-error) stream)
- (if *print-escape*
+ (if (and *print-escape*
+ (slot-boundp condition 'expected-type)
+ (slot-boundp condition 'datum))
(flet ((maybe-string (thing)
(ignore-errors
(write-to-string thing :lines 1 :readably nil :array nil :pretty t))))
(when (and (eq 'list (type-error-expected-type e))
(eql 8 (type-error-datum e)))
:type-error))))))
+
+(with-test (:name (:printing-unintitialized-condition :bug-1184586))
+ (prin1-to-string (make-condition 'simple-type-error)))