Update of /project/cells/cvsroot/cells In directory clnet:/tmp/cvs-serv30090 Modified Files: md-slot-value.lisp Log Message: Fixed ensure-value-is-current, now works with my code. --- /project/cells/cvsroot/cells/md-slot-value.lisp 2008/04/12 22:53:26 1.42 +++ /project/cells/cvsroot/cells/md-slot-value.lisp 2008/04/13 10:22:03 1.43 @@ -79,7 +79,7 @@ ;; (trc c "ensure-value-is-current > entry" c (c-state c) :now-pulse *data-pulse-id* debug-id ensurer) (when *not-to-be* - (return-from ensure-value-is-current t)) + (return-from ensure-value-is-current (c-value c))) (when (and (not (symbolp (c-model c)))(eq :eternal-rest (md-state (c-model c)))) (break "model ~a of cell ~a is dead" (c-model c) c))