[cells-cvs] CVS update: cell-cultures/cells/cells.asd cell-cultures/cells/integrity.lisp

[Kenny Tilton]

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