[cells-cvs] CVS update: cells/md-slot-value.lisp

[Kenny Tilton]

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)