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)))))))