Check if relevant slots are bound when printing MODEL instances

Ramarren · May 21, 2009 · b808dbd · b808dbd
1 parent ed94569
commit b808dbd
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/family.lisp b/family.lisp
@@ -51,8 +51,11 @@ See the Lisp Lesser GNU Public License for more details.
 
 (defmethod print-object ((self model) s)
   #+shhh (format s "~a" (type-of self))
-  (format s "~a~a" (if (mdead self) "DEAD!" "")
-    (or (md-name self) (type-of self))))
+  (if (and (slot-boundp self '.md-state)
+           (slot-boundp self '.md-name))
+      (format s "~a~a" (if (mdead self) "DEAD!" "")
+              (or (md-name self) (type-of self)))
+      (format s "UNINITIALIZED-~a" (type-of self))))
 
 (define-symbol-macro .parent (fm-parent self))
 (define-symbol-macro .pa (fm-parent self))