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)) )