Wed May 27 19:22:08 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Fix error when printing a SMOKE-OBJECT with an unbound pointer slot.
diff -rN -u old-smoke-1/src/clos.lisp new-smoke-1/src/clos.lisp
--- old-smoke-1/src/clos.lisp 2014-09-30 10:29:22.000000000 +0200
+++ new-smoke-1/src/clos.lisp 2014-09-30 10:29:22.000000000 +0200
@@ -112,8 +112,10 @@
(:documentation "The standard superclass for Smoke classes."))
(defmethod print-object ((object smoke-standard-object) stream)
- (print-unreadable-object (object stream :type t)
- (princ (pointer object) stream)))
+ (if (slot-boundp object 'pointer)
+ (print-unreadable-object (object stream :type t)
+ (princ (pointer object) stream))
+ (call-next-method)))
(defclass smoke-standard-class (standard-class smoke-class)
()