[cells-cvs] CVS cells/gui-geometry

[ktilton]

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

Modified Files:
	geo-data-structures.lisp geo-family.lisp geometer.lisp 
Added Files:
	gui-geometry.asd 
Log Message:


--- /project/cells/cvsroot/cells/gui-geometry/geo-data-structures.lisp	2006/07/03 00:08:29	1.4
+++ /project/cells/cvsroot/cells/gui-geometry/geo-data-structures.lisp	2006/07/06 22:10:02	1.5
@@ -16,7 +16,7 @@
 
 (in-package :gui-geometry)
 
-(eval-when (compile load eval)
+(eval-now!
   (export '(v2)))
 ;-----------------------------
 
@@ -312,7 +312,7 @@
 
 ;;; --- Up / Down variability management ---
 
-(eval-when (compile load eval)
+(eval-now!
   (export '(*up-is-positive* ups ups-more ups-most downs downs-most downs-more)))
 
 (defparameter *up-is-positive* t
--- /project/cells/cvsroot/cells/gui-geometry/geo-family.lisp	2006/07/03 00:08:29	1.5
+++ /project/cells/cvsroot/cells/gui-geometry/geo-family.lisp	2006/07/06 22:10:02	1.6
@@ -16,7 +16,7 @@
 
 (in-package :gui-geometry)
 
-(eval-when (compile load eval)
+(eval-now!
   (export '(geo-inline-lazy)))
 
 ;--------------- geo-inline -----------------------------
--- /project/cells/cvsroot/cells/gui-geometry/geometer.lisp	2006/07/03 00:08:29	1.5
+++ /project/cells/cvsroot/cells/gui-geometry/geometer.lisp	2006/07/06 22:10:02	1.6
@@ -16,7 +16,7 @@
 
 (in-package #:gui-geometry)
 
-(eval-when (compile load eval)
+(eval-now!
   (export '(outset ^outset)))
 
 (defmd geometer ()

--- /project/cells/cvsroot/cells/gui-geometry/gui-geometry.asd	2006/07/06 22:10:02	NONE
+++ /project/cells/cvsroot/cells/gui-geometry/gui-geometry.asd	2006/07/06 22:10:02	1.1
;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-

(asdf:defsystem :gui-geometry
  :author "Kenny Tilton <kentilton at gmail.com>"
  :maintainer "Kenny Tilton <kentilton at gmail.com>"
  :licence "Lisp LGPL"
  :depends-on (:cells)
  :serial t
  :components
  ((:file "defpackage")
   (:file "geo-data-structures")
   (:file "coordinate-xform")
   (:file "geometer")
   (:file "geo-family")))