[cells-cvs] CVS update: cell-cultures/cells/fm-utilities.lisp

[Kenny Tilton]

Update of /project/cells/cvsroot/cell-cultures/cells
In directory common-lisp.net:/tmp/cvs-serv28025/cells

Modified Files:
	fm-utilities.lisp 
Log Message:
Re-write of the core layout widgets under the ix-inline class, plus a new OpenGL example, viz., a simple nurb. Looks sweet, btw.
Date: Fri Oct 15 05:37:38 2004
Author: ktilton

Index: cell-cultures/cells/fm-utilities.lisp
diff -u cell-cultures/cells/fm-utilities.lisp:1.1 cell-cultures/cells/fm-utilities.lisp:1.2
--- cell-cultures/cells/fm-utilities.lisp:1.1	Sat Jun 26 20:38:36 2004
+++ cell-cultures/cells/fm-utilities.lisp	Fri Oct 15 05:37:38 2004
@@ -418,7 +418,7 @@
           :must-find nil
           :global-search ,global-search))
 
-(defun fm! (starting md-name &optional (global-search t))
+(defun fm-other! (starting md-name &optional (global-search t))
   (fm-find-one starting md-name
     :must-find t
     :global-search global-search))
@@ -436,12 +436,13 @@
           :must-find nil
           :global-search ,global-search))
 
-(defmacro fm-other! (md-name &optional (starting 'self))
-    `(fm-find-one ,starting ,(if (consp md-name)
-                                                 `(list ',(car md-name) ,(cadr md-name))
-                                                `',md-name)
+(defmacro fm! (md-name &optional (starting 'self))
+    `(without-c-dependency 
+      (fm-find-one ,starting ,(if (consp md-name)
+                                  `(list ',(car md-name) ,(cadr md-name))
+                                `',md-name)
         :must-find t
-        :global-search nil))
+        :global-search nil)))
 
 (defmacro fm-other?! (md-name &optional (starting 'self))
    `(fm-find-one ,starting ,(if (consp md-name)