[cells-cvs] CVS cells

[ktilton]

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

Modified Files:
	fm-utilities.lisp 
Log Message:


--- /project/cells/cvsroot/cells/fm-utilities.lisp	2006/08/21 04:29:30	1.8
+++ /project/cells/cvsroot/cells/fm-utilities.lisp	2006/08/31 17:35:28	1.9
@@ -223,6 +223,8 @@
                               (fm-traverse family traveller :global-search global-search)))))
         (when (and must-find (null matches))
            (setf *stop* t)
+          (fm-traverse family (lambda (node)
+                                (trc "known node" (md-name node))) :global-search global-search)
           (break "fm-find-all > *stop*ping...did not find ~a ~a ~a" family md-name global-search)
           ;; (error 'fm-not-found (list md-name family global-search))
           )