Update of /project/cells/cvsroot/Cells-js In directory clnet:/tmp/cvs-serv6206 Modified Files: cell-types.js cells.js constructors.js defmodel.js family-values.js family.js fm-utilities.js initialize.js integrity.js link.js md-slot-value.js md-utilities.js model-object.js propagate.js slot-utilities.js synapse-types.js synapse.js test.js trc-eko.js variables.js Log Message: --- /project/cells/cvsroot/Cells-js/cell-types.js 2008/04/06 19:16:16 1.1 +++ /project/cells/cvsroot/Cells-js/cell-types.js 2008/04/06 19:35:38 1.2 @@ -1,5 +1,5 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -#| +/* Cells -- Automatic Dataflow Managememnt @@ -14,7 +14,7 @@ See the Lisp Lesser GNU Public License for more details. -|# +*/ (in-package :cells) --- /project/cells/cvsroot/Cells-js/cells.js 2008/04/06 19:16:16 1.1 +++ /project/cells/cvsroot/Cells-js/cells.js 2008/04/06 19:35:38 1.2 @@ -1,5 +1,5 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -#| +/* Cells -- Automatic Dataflow Managememnt @@ -14,9 +14,9 @@ See the Lisp Lesser GNU Public License for more details. -|# +*/ -#| Notes +/* Notes I don't like the way with-cc defers twice, first the whole thing and then when the body finally runs we are still within the original integrity and each setf gets queued @@ -29,7 +29,7 @@ It would be nice to do referential integrity and notice any time a model object gets stored in a cellular slot (or in a list in such) and then mop those up on not-to-be. -|# +*/ (eval-when (compile load) --- /project/cells/cvsroot/Cells-js/constructors.js 2008/04/06 19:16:16 1.1 +++ /project/cells/cvsroot/Cells-js/constructors.js 2008/04/06 19:35:38 1.2 @@ -1,5 +1,5 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -#| +/* Cells -- Automatic Dataflow Managememnt @@ -14,7 +14,7 @@ See the Lisp Lesser GNU Public License for more details. -|# +*/ (in-package :cells) --- /project/cells/cvsroot/Cells-js/defmodel.js 2008/04/06 19:16:16 1.1 +++ /project/cells/cvsroot/Cells-js/defmodel.js 2008/04/06 19:35:38 1.2 @@ -1,5 +1,5 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -#| +/* Cells -- Automatic Dataflow Managememnt @@ -14,7 +14,7 @@ See the Lisp Lesser GNU Public License for more details. -|# +*/ (in-package :cells) (defmacro defmodel (class directsupers slotspecs &rest options) --- /project/cells/cvsroot/Cells-js/family-values.js 2008/04/06 19:16:17 1.1 +++ /project/cells/cvsroot/Cells-js/family-values.js 2008/04/06 19:35:38 1.2 @@ -1,5 +1,5 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -#| +/* Cells -- Automatic Dataflow Managememnt @@ -14,7 +14,7 @@ See the Lisp Lesser GNU Public License for more details. -|# +*/ (in-package :cells) --- /project/cells/cvsroot/Cells-js/family.js 2008/04/06 19:16:17 1.1 +++ /project/cells/cvsroot/Cells-js/family.js 2008/04/06 19:35:38 1.2 @@ -1,5 +1,5 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -#| +/* Cells -- Automatic Dataflow Managememnt @@ -14,7 +14,7 @@ See the Lisp Lesser GNU Public License for more details. -|# +*/ (in-package :cells) --- /project/cells/cvsroot/Cells-js/fm-utilities.js 2008/04/06 19:16:17 1.1 +++ /project/cells/cvsroot/Cells-js/fm-utilities.js 2008/04/06 19:35:38 1.2 @@ -1,5 +1,5 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -#| +/* Cells -- Automatic Dataflow Managememnt @@ -14,7 +14,7 @@ See the Lisp Lesser GNU Public License for more details. -|# +*/ (in-package :cells) @@ -249,10 +249,10 @@ ;; -#| +/* (defun fm-member-named (kidname kids) (member kidname kids :key #'md-name)) - |# + */ (defun true-that (that) (declare (ignore that)) t) ;; --- /project/cells/cvsroot/Cells-js/initialize.js 2008/04/06 19:16:17 1.1 +++ /project/cells/cvsroot/Cells-js/initialize.js 2008/04/06 19:35:38 1.2 @@ -1,5 +1,5 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -#| +/* Cells -- Automatic Dataflow Managememnt @@ -14,7 +14,7 @@ See the Lisp Lesser GNU Public License for more details. -|# +*/ (in-package :cells) --- /project/cells/cvsroot/Cells-js/integrity.js 2008/04/06 19:16:17 1.1 +++ /project/cells/cvsroot/Cells-js/integrity.js 2008/04/06 19:35:38 1.2 @@ -1,5 +1,5 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -#| +/* Cells -- Automatic Dataflow Managememnt @@ -14,7 +14,7 @@ See the Lisp Lesser GNU Public License for more details. -|# +*/ (in-package :cells) --- /project/cells/cvsroot/Cells-js/link.js 2008/04/06 19:16:17 1.1 +++ /project/cells/cvsroot/Cells-js/link.js 2008/04/06 19:35:38 1.2 @@ -1,5 +1,5 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -#| +/* Cells -- Automatic Dataflow Managememnt @@ -14,7 +14,7 @@ See the Lisp Lesser GNU Public License for more details. -|# +*/ (in-package :cells) --- /project/cells/cvsroot/Cells-js/md-slot-value.js 2008/04/06 19:16:17 1.1 +++ /project/cells/cvsroot/Cells-js/md-slot-value.js 2008/04/06 19:35:38 1.2 @@ -1,5 +1,5 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -#| +/* Cells -- Automatic Dataflow Managememnt @@ -14,7 +14,7 @@ See the Lisp Lesser GNU Public License for more details. -|# +*/ (in-package :cells) --- /project/cells/cvsroot/Cells-js/md-utilities.js 2008/04/06 19:16:17 1.1 +++ /project/cells/cvsroot/Cells-js/md-utilities.js 2008/04/06 19:35:38 1.2 @@ -1,5 +1,5 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -#| +/* Cells -- Automatic Dataflow Managememnt @@ -14,7 +14,7 @@ See the Lisp Lesser GNU Public License for more details. -|# +*/ (in-package :cells) --- /project/cells/cvsroot/Cells-js/model-object.js 2008/04/06 19:16:17 1.1 +++ /project/cells/cvsroot/Cells-js/model-object.js 2008/04/06 19:35:38 1.2 @@ -1,5 +1,5 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -#| +/* Cells -- Automatic Dataflow Managememnt @@ -14,7 +14,7 @@ See the Lisp Lesser GNU Public License for more details. -|# +*/ (in-package :cells) --- /project/cells/cvsroot/Cells-js/propagate.js 2008/04/06 19:16:17 1.1 +++ /project/cells/cvsroot/Cells-js/propagate.js 2008/04/06 19:35:38 1.2 @@ -1,5 +1,5 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -#| +/* Cells -- Automatic Dataflow Managememnt @@ -14,7 +14,7 @@ See the Lisp Lesser GNU Public License for more details. -|# +*/ (in-package :cells) --- /project/cells/cvsroot/Cells-js/slot-utilities.js 2008/04/06 19:16:17 1.1 +++ /project/cells/cvsroot/Cells-js/slot-utilities.js 2008/04/06 19:35:38 1.2 @@ -1,5 +1,5 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -#| +/* Cells -- Automatic Dataflow Managememnt @@ -14,7 +14,7 @@ See the Lisp Lesser GNU Public License for more details. -|# +*/ (in-package :cells) @@ -88,10 +88,10 @@ (slot-makunbound self slot-name) (makunbound self))) -#| sample incf +/* sample incf (defmethod c-value-incf ((base fpoint) delta) (declare (ignore model)) (if delta (fp-add base delta) base)) -|# +*/ --- /project/cells/cvsroot/Cells-js/synapse-types.js 2008/04/06 19:16:17 1.1 +++ /project/cells/cvsroot/Cells-js/synapse-types.js 2008/04/06 19:35:38 1.2 @@ -1,5 +1,5 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -#| +/* Cells -- Automatic Dataflow Managememnt @@ -14,7 +14,7 @@ See the Lisp Lesser GNU Public License for more details. -|# +*/ (in-package :cells) --- /project/cells/cvsroot/Cells-js/synapse.js 2008/04/06 19:16:17 1.1 +++ /project/cells/cvsroot/Cells-js/synapse.js 2008/04/06 19:35:38 1.2 @@ -1,5 +1,5 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -#| +/* Cells -- Automatic Dataflow Managememnt @@ -14,7 +14,7 @@ See the Lisp Lesser GNU Public License for more details. -|# +*/ (in-package :cells) --- /project/cells/cvsroot/Cells-js/test.js 2008/04/06 19:16:17 1.1 +++ /project/cells/cvsroot/Cells-js/test.js 2008/04/06 19:35:38 1.2 @@ -20,7 +20,7 @@ ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS ;;; IN THE SOFTWARE. -#| Synapse Cell Unification Notes +/* Synapse Cell Unification Notes - start by making Cells synapse-y @@ -47,16 +47,16 @@ - do diff unchanged tests such as string-equal work -|# +*/ -#| do list +/* do list -- can we lose the special handling of the .kids slot? -- test drifters (and can they be handled without creating a special subclass for them?) -|# +*/ (eval-when (compile load) (proclaim '(optimize (speed 2) (safety 3) (space 1) (debug 3)))) --- /project/cells/cvsroot/Cells-js/trc-eko.js 2008/04/06 19:16:17 1.1 +++ /project/cells/cvsroot/Cells-js/trc-eko.js 2008/04/06 19:35:38 1.2 @@ -1,5 +1,5 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -#| +/* The Newly Cells-aware TRC trace and EKO value echo facilities @@ -14,7 +14,7 @@ See the Lisp Lesser GNU Public License for more details. -|# +*/ (in-package :cells) --- /project/cells/cvsroot/Cells-js/variables.js 2008/04/06 19:16:17 1.1 +++ /project/cells/cvsroot/Cells-js/variables.js 2008/04/06 19:35:38 1.2 @@ -1,5 +1,5 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -#| +/* Cells -- Automatic Dataflow Managememnt @@ -14,7 +14,7 @@ See the Lisp Lesser GNU Public License for more details. -|# +*/ (in-package :cells)