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@gmail.com>" :maintainer "Kenny Tilton <kentilton@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")))