[cells-cvs] CVS cells

[ktilton]

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

Modified Files:
	cell-types.lisp link.lisp 
Log Message:
lose mathx package refs

--- /project/cells/cvsroot/cells/cell-types.lisp	2006/10/02 02:38:31	1.18
+++ /project/cells/cvsroot/cells/cell-types.lisp	2006/10/02 20:55:00	1.19
@@ -46,9 +46,9 @@
 (defun caller-drop (used caller)
   (fifo-delete (c-caller-store used) caller))
 
-(defmethod trcp ((c cell))
-   (and  #+not(typep (c-model c) 'index)
-     (find (c-slot-name c) '(mathx::line-breaks mathx::phrases))))
+;;;(defmethod trcp ((c cell))
+;;;   (and  (typep (c-model c) 'index)
+;;;     (find (c-slot-name c) '(mathx::line-breaks mathx::phrases))))
 
 ; --- ephemerality --------------------------------------------------
 ; 
--- /project/cells/cvsroot/cells/link.lisp	2006/08/21 04:29:30	1.17
+++ /project/cells/cvsroot/cells/link.lisp	2006/10/02 20:55:00	1.18
@@ -58,8 +58,8 @@
 
 (defun c-unlink-unused (c &aux (usage (cd-usage c))
                          (usage-size (array-dimension (cd-usage c) 0))
-                         (dbg nil #+not (and (typep (c-model c) 'mathx::mx-solver-stack)
-                                (eq (c-slot-name c) '.kids))))
+                         (dbg nil)) ;; #+not (and (typep (c-model c) 'mathx::mx-solver-stack)
+                                ;;(eq (c-slot-name c) '.kids))))
   (declare (ignorable usage-size))
   (when (cd-useds c)
     (let (rev-pos)