[cells-cvs] CVS cells

[ktilton]

Update of /project/cells/cvsroot/cells
In directory clnet:/tmp/cvs-serv13795

Modified Files:
	cells-manifesto.txt link.lisp md-slot-value.lisp 
Log Message:


--- /project/cells/cvsroot/cells/cells-manifesto.txt	2006/06/06 18:19:11	1.3
+++ /project/cells/cvsroot/cells/cells-manifesto.txt	2006/06/07 22:12:55	1.4
@@ -260,7 +260,14 @@
 deferred until all computed cells are up-to-date with the current state of 
 the universe."
 
--- Peter Seibel, comp.lang.lisp
+Uncommentary
+------------
+-- Peter Seibel, comp.lang.lisp:
 "I couldn't find anything that explained what it was and why I should care."
 
+-- Alan Crowe, comp.lang.lisp:
+"Further confession: I'm bluffing. I've grasped that Cells is
+interesting, but I haven't downloaded it yet, and I haven't
+checked out how it works or what /exactly/ it does."
+
                                 
\ No newline at end of file
--- /project/cells/cvsroot/cells/link.lisp	2006/06/05 00:01:22	1.10
+++ /project/cells/cvsroot/cells/link.lisp	2006/06/07 22:12:55	1.11
@@ -54,7 +54,7 @@
   used)
 
 
-;--- c-unlink-unused --------------------------------
+;--- unlink unused --------------------------------
 
 (defun c-unlink-unused (c &aux (usage (cd-usage c)))
   (when (cd-useds c)
@@ -87,7 +87,6 @@
 
 ; ---------------------------------------------
 
-
 (defun cd-usage-clear-all (c)
   (loop with a = (cd-usage c)
         for bitn below (array-dimension a 0)
--- /project/cells/cvsroot/cells/md-slot-value.lisp	2006/06/05 00:01:22	1.16
+++ /project/cells/cvsroot/cells/md-slot-value.lisp	2006/06/07 22:12:55	1.17
@@ -151,8 +151,12 @@
     (c-setting-debug self slot-name c new-value))
   
   (unless c
-    (c-break "(setf md-slot-value)> cellular slot ~a of ~a cannot be setf unless initialized as inputp"
-      slot-name self))
+    (c-break "cellular slot ~a of ~a cannot be SETFed because it is not 
+mediated by a Cell with :inputp t. To achieve this, the initial value ~s -- whether 
+supplied as an :initform, :default-initarg, or at make-instance time via 
+an :initarg -- should be wrapped in either macro C-IN or C-INPUT. 
+In brief, initialize ~0@*~a to (c-in ~2@*~s) instead of plain ~:*~s"
+      slot-name self (slot-value self slot-name)))
 
   (when *defer-changes*
     (c-break "SETF of ~a must be deferred by wrapping code in WITH-INTEGRITY" c))