Update of /project/cells/cvsroot/cells In directory common-lisp.net:/tmp/cvs-serv3918

Modified Files: md-slot-value.lisp Log Message: Fix great honking bug in md-slot-value, introduced earlier today. Date: Sun May 8 18:47:21 2005 Author: ktilton

Index: cells/md-slot-value.lisp diff -u cells/md-slot-value.lisp:1.3 cells/md-slot-value.lisp:1.4 --- cells/md-slot-value.lisp:1.3 Sun May 8 14:42:12 2005 +++ cells/md-slot-value.lisp Sun May 8 18:47:20 2005 @@ -40,16 +40,16 @@ (reset-cells () :report "Reset cells and retry getting the slot value." (cell-reset) - (go retry))))) - - ;; (count-it :md-slot-value slot-name) - (if c - (prog1 - (with-integrity (:md-slot-value) - (c-value-ensure-current c)) - (when (car *c-calculators*) - (c-link-ex c))) - (values (bd-slot-value self slot-name) nil)))) + (go retry)))))) + + ;; (count-it :md-slot-value slot-name) + (if c + (prog1 + (with-integrity (:md-slot-value) + (c-value-ensure-current c)) + (when (car *c-calculators*) + (c-link-ex c))) + (values (bd-slot-value self slot-name) nil)))

(defun c-value-ensure-current (c) (count-it :c-value-ensure-current)