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))