[cells-cvs] CVS cells/gui-geometry

[ktilton]

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)
-      , at stack-args
-     :fm-parent *parent*
-     :orientation :vertical
-     :kids (c? (the-kids , at dd-kids))))
-
-(defmacro a-row ((&rest stack-args) &body dd-kids)
-  `(mk-part ,(copy-symbol 'a-stack) (geo-inline)
-      , at stack-args
-     :fm-parent *parent*
-     :orientation :horizontal
-     :kids (c? (the-kids , at 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)