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)