[cells-cvs] CVS Cells-js

ktilton ktilton at common-lisp.net
Sun Apr 6 19:35:40 UTC 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)
 




More information about the Cells-cvs mailing list