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/src/clos.lisp new-smoke/src/clos.lisp
--- old-smoke/src/clos.lisp	2015-04-10 12:21:47.000000000 +0200
+++ new-smoke/src/clos.lisp	2015-04-10 12:21:47.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)
   ()