[cells-cvs] CVS cells

[ktilton]

Update of /project/cells/cvsroot/cells
In directory clnet:/tmp/cvs-serv31012

Modified Files:
	cell-types.lisp family.lisp 
Log Message:
(push :iamnotkenny *features*) to avoid non-portable code

--- /project/cells/cvsroot/cells/cell-types.lisp	2007/11/30 16:51:18	1.26
+++ /project/cells/cvsroot/cells/cell-types.lisp	2007/12/03 20:11:11	1.27
@@ -69,7 +69,12 @@
           (format stream "=~d/~a/~a]"
             (c-pulse c)
             (symbol-name (or (c-slot-name c) :anoncell))
-            (bwhen (md (c-model c)) (or (md-name md) :anonmd))))))))
+            (print-cell-model (c-model c))))))))
+
+(export! print-cell-model)
+
+(defgeneric print-cell-model (md)
+  (:method (other) (print-object other nil)))
 
 (defmethod trcp :around ((c cell))
   (or (c-debug c)
--- /project/cells/cvsroot/cells/family.lisp	2007/11/30 22:52:36	1.21
+++ /project/cells/cvsroot/cells/family.lisp	2007/12/03 20:11:11	1.22
@@ -25,7 +25,13 @@
 (defmodel model ()
   ((.md-name :cell nil :initform nil :initarg :md-name :accessor md-name)
    (.fm-parent :cell nil :initform nil :initarg :fm-parent :accessor fm-parent)
-   (.value :initform nil :accessor value :initarg :value)))
+   (.value :initform nil :accessor value :initarg :value)
+   (zdbg :initform nil :accessor dbg :initarg :dbg))
+  )
+
+
+(defmethod print-cell-object ((md model))
+  (or (md-name md) :md?))
 
 (defmethod fm-parent (other)
   (declare (ignore other))