[cells-cvs] CVS cells

13 Oct 2006

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)

    

ktilton