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

Modified Files: fm-utilities.lisp Log Message:

--- /project/cells/cvsroot/cells/fm-utilities.lisp 2006/10/11 22:16:22 1.11 +++ /project/cells/cvsroot/cells/fm-utilities.lisp 2006/10/13 05:56:38 1.12 @@ -401,6 +401,11 @@ :global-search t :test ,test))

+(export! fmv) + +(defmacro fmv (name) + `(md-value (fm-other ,name))) + (defmacro fm-otherx (md-name &key (starting 'self) skip-tree) (if (eql starting 'self) `(or (fm-find-one ,starting ,(if (consp md-name)