Update of /project/cells/cvsroot/cell-cultures/cells In directory common-lisp.net:/tmp/cvs-serv26849/cells Modified Files: cells.asd integrity.lisp Log Message: Add one dependency to ASDF, plus minor stuff to port cells-gtk to Lispworks Date: Mon Dec 6 21:26:07 2004 Author: ktilton Index: cell-cultures/cells/cells.asd diff -u cell-cultures/cells/cells.asd:1.4 cell-cultures/cells/cells.asd:1.5 --- cell-cultures/cells/cells.asd:1.4 Sun Dec 5 05:50:32 2004 +++ cell-cultures/cells/cells.asd Mon Dec 6 21:26:06 2004 @@ -18,7 +18,7 @@ (:file "defpackage") (:file "cells" :depends-on ("defpackage")) (:file "cell-types" :depends-on ("defpackage")) - (:file "integrity" :depends-on ("cell-types")) + (:file "integrity" :depends-on ("cell-types" "cells")) (:file "constructors" :depends-on ("integrity" "cells")) (:file "initialize" :depends-on ("cells" "cell-types")) (:file "md-slot-value" :depends-on ("integrity" "cell-types")) Index: cell-cultures/cells/integrity.lisp diff -u cell-cultures/cells/integrity.lisp:1.4 cell-cultures/cells/integrity.lisp:1.5 --- cell-cultures/cells/integrity.lisp:1.4 Fri Jul 9 05:53:04 2004 +++ cell-cultures/cells/integrity.lisp Mon Dec 6 21:26:06 2004 @@ -106,6 +106,8 @@ (defun finish-business (&aux task some-output setfs (setf-ct 0)) (declare (ignorable setfs)) + (assert (ufb-queue :user-notify)) + (assert (consp (ufb-queue :user-notify))) (tagbody notify-users ;--- notify users ------------------------------ @@ -126,7 +128,7 @@ (cond (task (setf some-output t) - (trc nil "finish-business outputting--------------------------") + (trc nil "finish-business outputting------------------------") (funcall task) (go next-output)) (some-output