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

Modified Files: md-slot-value.lisp Log Message:

--- /project/cells/cvsroot/cells/md-slot-value.lisp 2006/06/13 16:19:35 1.20 +++ /project/cells/cvsroot/cells/md-slot-value.lisp 2006/06/15 15:55:01 1.21 @@ -182,7 +182,7 @@ (when (and (not (eq propagation-code :propagate)) (eql prior-state :valid) (c-no-news c absorbed-value prior-value)) - (trc "(setf md-slot-value) > early no news" propagation-code prior-state prior-value absorbed-value) + (trc nil "(setf md-slot-value) > early no news" propagation-code prior-state prior-value absorbed-value) (count-it :nonews) (return-from md-slot-value-assume absorbed-value))