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)