Update of /project/cells/cvsroot/cells/gui-geometry In directory clnet:/tmp/cvs-serv26783/gui-geometry Modified Files: geo-family.lisp gui-geometry.lpr Log Message: Lose *c-optimizep* (and the sep source file next) --- /project/cells/cvsroot/cells/gui-geometry/geo-family.lisp 2006/06/05 00:01:22 1.2 +++ /project/cells/cvsroot/cells/gui-geometry/geo-family.lisp 2006/06/25 21:30:34 1.3 @@ -55,19 +55,6 @@ (c? (px-maintain-pl (^prior-sib-pr self (spacing .parent))))))))))) -(defmacro a-stack ((&rest stack-args) &body dd-kids) - `(mk-part ,(copy-symbol 'a-stack) (geo-inline) - ,@stack-args - :fm-parent *parent* - :orientation :vertical - :kids (c? (the-kids ,@dd-kids)))) - -(defmacro a-row ((&rest stack-args) &body dd-kids) - `(mk-part ,(copy-symbol 'a-stack) (geo-inline) - ,@stack-args - :fm-parent *parent* - :orientation :horizontal - :kids (c? (the-kids ,@dd-kids)))) #| archive --- /project/cells/cvsroot/cells/gui-geometry/gui-geometry.lpr 2006/06/04 13:19:59 1.1 +++ /project/cells/cvsroot/cells/gui-geometry/gui-geometry.lpr 2006/06/25 21:30:34 1.2 @@ -1,4 +1,4 @@ -;; -*- lisp-version: "8.0 [Windows] (May 22, 2006 0:51)"; cg: "1.81"; -*- +;; -*- lisp-version: "8.0 [Windows] (Jun 21, 2006 9:54)"; cg: "1.81"; -*- (in-package :cg-user)