[cells-cvs] CVS Cells-js - cells-cvs@common-lisp.net - mailman3.common-lisp.net

6 Apr 2008

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)

    