[cells-cvs] CVS cells

[ktilton]

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

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


--- /project/cells/cvsroot/cells/cells.lisp	2007/11/30 16:51:18	1.21
+++ /project/cells/cvsroot/cells/cells.lisp	2007/11/30 22:29:06	1.22
@@ -156,7 +156,7 @@
           )
       (c-stop args)
       (format t "c-break > stopping > ~a" args)
-      (apply 'break args))))
+      (apply 'error args))))
 
 
 
--- /project/cells/cvsroot/cells/integrity.lisp	2007/11/30 16:51:18	1.18
+++ /project/cells/cvsroot/cells/integrity.lisp	2007/11/30 22:29:06	1.19
@@ -44,9 +44,6 @@
   *within-integrity*)
 
 (defun call-with-integrity (opcode defer-info action)
-  (when (eq opcode :change)
-    (when (eq defer-info :focus)
-      (break "cwi focus change")))
   (when *stop*
     (return-from call-with-integrity))
   (if *within-integrity*
--- /project/cells/cvsroot/cells/md-slot-value.lisp	2007/11/30 16:51:18	1.35
+++ /project/cells/cvsroot/cells/md-slot-value.lisp	2007/11/30 22:29:06	1.36
@@ -153,7 +153,7 @@
                    (setf caller-reiterated (eq caller c)))
              (c-break ;; break is problem when testing cells on some CLs
               "cell ~a midst askers (see above)" c)
-             (break "see listener for cell rule cycle diagnotics"))
+             (error "see listener for cell rule cycle diagnotics"))
   
            (multiple-value-bind (raw-value propagation-code)
                (calculate-and-link c)