cells-cvs December 2007

cells-cvs@common-lisp.net

2 participants
24 discussions

[cells-cvs] CVS cells/utils-kt
by fgoenninger 02 Dec '07

02 Dec '07

Update of /project/cells/cvsroot/cells/utils-kt In directory clnet:/tmp/cvs-serv18803 Modified Files: utils-kt.asd Log Message: Changed: Now reflects latest changes from Kenny (as found in .lpr file) --- /project/cells/cvsroot/cells/utils-kt/utils-kt.asd 2006/10/17 21:28:40 1.2 +++ /project/cells/cvsroot/cells/utils-kt/utils-kt.asd 2007/12/02 18:31:59 1.3 @@ -18,11 +18,14 @@ :long-description "Low-level utilities used by all of Kenny's projects" :serial t :components ((:file "defpackage") + (:file "core") (:file "debug") (:file "flow-control") (:file "detritus") + (:file "quad") (:file "strings") - (:file "datetime"))) + (:file "datetime") + (:file "split-sequence"))) (defmethod perform ((o load-op) (c (eql (find-system :utils-kt)))) ; (pushnew "CELLS" *modules* :test #'string=)

1 0

[cells-cvs] CVS cells
by fgoenninger 02 Dec '07

02 Dec '07

Update of /project/cells/cvsroot/cells In directory clnet:/tmp/cvs-serv18364 Modified Files: constructors.lisp Log Message: Changed: Moved all symbol exports to beginning of file. Removed: c?+n constructor was defined twice in file. --- /project/cells/cvsroot/cells/constructors.lisp 2007/11/30 16:51:18 1.17 +++ /project/cells/cvsroot/cells/constructors.lisp 2007/12/02 18:28:04 1.18 @@ -19,15 +19,28 @@ (in-package :cells) (eval-now! - (export '(c?n))) + (export '(.cache-bound-p + + ;; Cells Constructors + c?n + c?once + c?n-until + c?1 + c_1 + c?+n + + ;; Debug Macros and Functions + c?dbg + c_?dbg + c-input-dbg + + ))) ;___________________ constructors _______________________________ (defmacro c-lambda (&body body) `(c-lambda-var (slot-c) ,@body)) -(export! .cache-bound-p c?+n) - (defmacro c-lambda-var ((c) &body body) `(lambda (,c &aux (self (c-model ,c)) (.cache (c-value ,c)) @@ -72,8 +85,6 @@ :rule (c-lambda ,@body) ,@args)) -(export! c?once c?n-until c?1 c_1) - (defmacro c?once (&body body) `(make-c-dependent :code '(without-c-dependency ,@body) @@ -114,8 +125,6 @@ :lazy :until-asked :rule (c-lambda ,@body))) -(export! c?dbg c_?dbg c-input-dbg) - (defmacro c_?dbg (&body body) "Lazy until asked, then eagerly propagating" `(make-c-dependent

1 0

[cells-cvs] CVS cells
by fgoenninger 02 Dec '07

02 Dec '07

Update of /project/cells/cvsroot/cells In directory clnet:/tmp/cvs-serv14095 Modified Files: cells.asd Log Message: Added: File variables.lisp --- /project/cells/cvsroot/cells/cells.asd 2006/08/22 15:02:04 1.6 +++ /project/cells/cvsroot/cells/cells.asd 2007/12/02 18:15:30 1.7 @@ -38,7 +38,8 @@ (:file "md-utilities") (:file "family") (:file "fm-utilities") - (:file "family-values"))) + (:file "family-values") + (:file "variables"))) (defmethod perform ((o load-op) (c (eql (find-system :cells)))) (pushnew :cells *features*))

1 0

[cells-cvs] CVS cells/gui-geometry
by fgoenninger 02 Dec '07

02 Dec '07

Update of /project/cells/cvsroot/cells/gui-geometry In directory clnet:/tmp/cvs-serv13766 Modified Files: geo-data-structures.lisp Log Message: Added: Comments in code. No other change. --- /project/cells/cvsroot/cells/gui-geometry/geo-data-structures.lisp 2007/11/30 16:51:19 1.10 +++ /project/cells/cvsroot/cells/gui-geometry/geo-data-structures.lisp 2007/12/02 18:14:18 1.11 @@ -21,13 +21,10 @@ ;----------------------------- (defstruct v2 - (h 0 ) - (v 0 ) + (h 0 ) ;; horizontal coordinate + (v 0 ) ;; vertical coordinate ) -#+(or) -(instance-slots (mkv2 1 2)) - (defmethod print-object ((self v2) s) (format s "~a|~a" (v2-h self)(v2-v self)))

1 0

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

cells-cvs December 2007