Update of /project/cells/cvsroot/cells/gui-geometry In directory clnet:/tmp/cvs-serv9859/gui-geometry

Modified Files: geo-data-structures.lisp Log Message:

--- /project/cells/cvsroot/cells/gui-geometry/geo-data-structures.lisp 2006/10/28 18:20:54 1.8 +++ /project/cells/cvsroot/cells/gui-geometry/geo-data-structures.lisp 2006/12/12 15:58:42 1.9 @@ -146,6 +146,7 @@ (expt (v2-v to) 2)))) ;-------------------------------------------------

+(export! rect) (defstruct (rect (:conc-name r-)) (left 0 ) (top 0 )