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)