[cells-cvs] CVS update: cell-cultures/cells/defmodel.lisp cell-cultures/cells/defpackage.lisp cell-cultures/cells/model-object.lisp

[Kenny Tilton]

Update of /project/cells/cvsroot/cell-cultures/cells
In directory common-lisp.net:/tmp/cvs-serv705/cells

Modified Files:
	defmodel.lisp defpackage.lisp model-object.lisp 
Log Message:

Date: Wed Jul 21 04:49:37 2004
Author: ktilton

Index: cell-cultures/cells/defmodel.lisp
diff -u cell-cultures/cells/defmodel.lisp:1.1 cell-cultures/cells/defmodel.lisp:1.2
--- cell-cultures/cells/defmodel.lisp:1.1	Sat Jun 26 11:38:36 2004
+++ cell-cultures/cells/defmodel.lisp	Wed Jul 21 04:49:37 2004
@@ -80,6 +80,7 @@
                (:metaclass ,(or (find :metaclass options :key #'car)
                               'standard-class)))
 
+       #-allegro-v6.2
        (defmethod shared-initialize :after ((self ,class) slot-names &rest iargs)
          (declare (ignore slot-names iargs))
          ,(when (and directsupers (not (member 'model-object directsupers)))
@@ -121,4 +122,5 @@
                             )
                          ))
                      ))
-           slotspecs))))
\ No newline at end of file
+           slotspecs))))
+


Index: cell-cultures/cells/defpackage.lisp
diff -u cell-cultures/cells/defpackage.lisp:1.4 cell-cultures/cells/defpackage.lisp:1.5
--- cell-cultures/cells/defpackage.lisp:1.4	Sun Jul  4 11:59:41 2004
+++ cell-cultures/cells/defpackage.lisp	Wed Jul 21 04:49:37 2004
@@ -47,7 +47,7 @@
     #:with-integrity #:with-deference #:without-c-dependency #:self
     #:.cache #:c-lambda #:.cause
     #:defmodel #:c-awaken #:def-c-output #:def-c-unchanged-test
-    #:new-value #:old-value #:c...
+    #:new-value #:old-value #:old-value-boundp #:c...
     #:make-be
     #:mkpart #:the-kids #:nsib #:md-value #:^md-value #:.md-value #:kids #:^kids #:.kids
     #:cell-reset #:upper #:fm-max #:nearest #:fm-min-kid #:fm-max-kid #:mk-kid-slot 


Index: cell-cultures/cells/model-object.lisp
diff -u cell-cultures/cells/model-object.lisp:1.3 cell-cultures/cells/model-object.lisp:1.4
--- cell-cultures/cells/model-object.lisp:1.3	Thu Jul  8 20:53:04 2004
+++ cell-cultures/cells/model-object.lisp	Wed Jul 21 04:49:37 2004
@@ -154,7 +154,6 @@
             (progn ;; next bit revised to avoid double-output of optimized cells
               (when (eql '.kids slot-name)
                 (bwhen (sv (slot-value self '.kids))
-                  (trc "soon will output initial kids of" self)
                   (md-kids-change self sv nil :md-awaken-slot)))
               (c-output-initially self slot-name)))))))