- cells-cvs@common-lisp.net - mailman3.common-lisp.net

[cells-cvs] CVS update: cell-cultures/cells/cells-test.asd
by Thomas F. Burdick 29 Jun '04

29 Jun '04

Update of /project/cells/cvsroot/cell-cultures/cells In directory common-lisp.net:/tmp/cvs-serv26932/cells Added Files: cells-test.asd Log Message: Moved some things around, added installation instructions. Date: Tue Jun 29 18:08:33 2004 Author: tburdick

1 0

[cells-cvs] CVS update: cell-cultures/asdf-registry/create-symlinks.sh
by Thomas F. Burdick 29 Jun '04

29 Jun '04

Update of /project/cells/cvsroot/cell-cultures/asdf-registry In directory common-lisp.net:/tmp/cvs-serv26932/asdf-registry Added Files: create-symlinks.sh Log Message: Moved some things around, added installation instructions. Date: Tue Jun 29 18:08:33 2004 Author: tburdick

1 0

[cells-cvs] CVS update: cell-cultures/README cell-cultures/README-ASDF
by Thomas F. Burdick 29 Jun '04

29 Jun '04

Update of /project/cells/cvsroot/cell-cultures In directory common-lisp.net:/tmp/cvs-serv26932 Added Files: README README-ASDF Log Message: Moved some things around, added installation instructions. Date: Tue Jun 29 18:08:33 2004 Author: tburdick

1 0

[cells-cvs] CVS update: Directory change: cell-cultures/asdf-registry
by Thomas F. Burdick 29 Jun '04

29 Jun '04

Update of /project/cells/cvsroot/cell-cultures/asdf-registry In directory common-lisp.net:/tmp/cvs-serv10152/asdf-registry Log Message: Directory /project/cells/cvsroot/cell-cultures/asdf-registry added to the repository Date: Tue Jun 29 17:58:36 2004 Author: tburdick New directory cell-cultures/asdf-registry added

1 0

[cells-cvs] CVS update: cell-cultures/utils-kt/debug.lisp cell-cultures/utils-kt/defpackage.lisp cell-cultures/utils-kt/utils-kt.lpr
by Thomas F. Burdick 29 Jun '04

29 Jun '04

Update of /project/cells/cvsroot/cell-cultures/utils-kt In directory common-lisp.net:/tmp/cvs-serv14176/utils-kt Modified Files: debug.lisp defpackage.lisp utils-kt.lpr Log Message: Added asdf<->lpr glue, and fixed ACL-produced nonsense like defpackage forms for the common-lisp package (I'm guessing ACL ignores these). Date: Tue Jun 29 01:58:49 2004 Author: tburdick Index: cell-cultures/utils-kt/debug.lisp diff -u cell-cultures/utils-kt/debug.lisp:1.1 cell-cultures/utils-kt/debug.lisp:1.2 --- cell-cultures/utils-kt/debug.lisp:1.1 Sat Jun 26 11:38:43 2004 +++ cell-cultures/utils-kt/debug.lisp Tue Jun 29 01:58:49 2004 @@ -22,10 +22,6 @@ (in-package :utils-kt) -(eval-when (compile load eval) - (export '(eko eko-if))) - - (defparameter *trcdepth* 0) (defvar *count* nil) (defvar *counting* nil) Index: cell-cultures/utils-kt/defpackage.lisp diff -u cell-cultures/utils-kt/defpackage.lisp:1.1 cell-cultures/utils-kt/defpackage.lisp:1.2 --- cell-cultures/utils-kt/defpackage.lisp:1.1 Sat Jun 26 11:38:43 2004 +++ cell-cultures/utils-kt/defpackage.lisp Tue Jun 29 01:58:49 2004 @@ -20,15 +20,13 @@ ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS ;;; IN THE SOFTWARE. -(in-package :common-lisp) - (defpackage :utils-kt (:use #:common-lisp #-(or cormanlisp cmu sbcl) #:clos #+sbcl #:sb-mop #+mcl #:ccl) (:export - #:eko #:count-it #:trc #:maptimes #:bwhen #:bif #:xor + #:eko #:eko-if #:count-it #:trc #:maptimes #:bwhen #:bif #:xor "WITH-DYNAMIC-FN" #:last1 #:packed-flat! #:with-metrics "TRUE" "SHORTC" #:intern$ #:defconstant-once "*COUNT*" "*STOP*" "*DBG*" "*TRCDEPTH*" Index: cell-cultures/utils-kt/utils-kt.lpr diff -u cell-cultures/utils-kt/utils-kt.lpr:1.1 cell-cultures/utils-kt/utils-kt.lpr:1.2 --- cell-cultures/utils-kt/utils-kt.lpr:1.1 Sat Jun 26 11:38:43 2004 +++ cell-cultures/utils-kt/utils-kt.lpr Tue Jun 29 01:58:49 2004 @@ -2,10 +2,6 @@ (in-package :common-graphics-user) -(defpackage :common-lisp - (:export :intern :find-package :list :make-instance :t :nil - :quote)) - (define-project :name :utils-kt :application-type (intern "Standard EXE" (find-package :keyword)) :modules (list (make-instance 'module :name "defpackage.lisp")

1 0

[cells-cvs] CVS update: cell-cultures/cells/cells.asd cell-cultures/cells/cells.lisp cell-cultures/cells/defpackage.lisp
by Thomas F. Burdick 29 Jun '04

29 Jun '04

Update of /project/cells/cvsroot/cell-cultures/cells In directory common-lisp.net:/tmp/cvs-serv14176/cells Modified Files: cells.asd cells.lisp defpackage.lisp Log Message: Added asdf<->lpr glue, and fixed ACL-produced nonsense like defpackage forms for the common-lisp package (I'm guessing ACL ignores these). Date: Tue Jun 29 01:58:49 2004 Author: tburdick Index: cell-cultures/cells/cells.asd diff -u cell-cultures/cells/cells.asd:1.1 cell-cultures/cells/cells.asd:1.2 --- cell-cultures/cells/cells.asd:1.1 Sat Jun 26 11:38:36 2004 +++ cell-cultures/cells/cells.asd Tue Jun 29 01:58:49 2004 @@ -3,10 +3,12 @@ ;(declaim (optimize (debug 2) (speed 1) (safety 1) (compilation-speed 1))) (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0))) +(operate 'load-op :asdf-aclproj) +(use-package :asdf-aclproj) #+(or allegro lispworks cmu mcl clisp cormanlisp sbcl scl) -(asdf:defsystem :cells +(defsystem :cells :name "cells" :author "Kenny Tilton <ktilton(a)nyc.rr.com>" :version "05-Nov-2003" @@ -14,33 +16,8 @@ :licence "MIT Style" :description "Cells" :long-description "The Cells dataflow extension to CLOS." - :serial t - :components - ((:file "cells") - (:file "debug") - (:file "flow-control") - (:file "strings") - (:file "detritus") - (:file "cell-types") - (:file "integrity") - (:file "constructors") - (:file "initialize") - (:file "md-slot-value") - (:file "slot-utilities") - (:file "optimization") - (:file "link") - (:file "propagate") - (:file "synapse") - (:file "synapse-types") - (:file "model-object") - (:file "defmodel") - (:file "md-utilities") - (:file "family") - (:file "fm-utilities") - (:file "family-values") - (:file "quad") - (:file "test"))) + :components ((lpr-project-file "cells"))) -(defmethod asdf:perform ((o load-op) (c (eql (find-system :cells)))) - (pushnew "CELLS" *modules*) - (pushnew :cells *features*)) \ No newline at end of file +(defmethod perform ((o load-op) (c (eql (find-system :cells)))) + ; (pushnew "CELLS" *modules* :test #'string=) + (pushnew :cells *features*)) Index: cell-cultures/cells/cells.lisp diff -u cell-cultures/cells/cells.lisp:1.1 cell-cultures/cells/cells.lisp:1.2 --- cell-cultures/cells/cells.lisp:1.1 Sat Jun 26 11:38:36 2004 +++ cell-cultures/cells/cells.lisp Tue Jun 29 01:58:49 2004 @@ -26,34 +26,6 @@ (eval-when (compile load) (proclaim '(optimize (speed 2) (safety 3) (space 1) (debug 3)))) -(defpackage :cells - (:use "COMMON-LISP" - #+allegro "EXCL" - #-(or cormanlisp cmu sbcl) "CLOS" - #+sbcl "SB-MOP" - #+mcl "CCL" - ) - #+clisp (:import-from #:clos "CLASS-SLOTS" "CLASS-PRECEDENCE-LIST") - #+cmu (:import-from "PCL" "CLASS-PRECEDENCE-LIST" "CLASS-SLOTS" - "SLOT-DEFINITION-NAME" "TRUE") - #+lispworks (:import-from "LW" "TRUE") - (:export "CELL" "C-INPUT" #:c-in #:c-in8 "C?" #:c?8 "C?_" "C??" - #:with-integrity #:with-deference "WITHOUT-C-DEPENDENCY" "SELF" - ".CACHE" "C-LAMBDA" ".CAUSE" - "DEFMODEL" "C-AWAKEN" "DEF-C-OUTPUT" "DEF-C-UNCHANGED-TEST" - "NEW-VALUE" "OLD-VALUE" "C..." - #:make-be - "MKPART" "THE-KIDS" "NSIB" "MD-VALUE" "^MD-VALUE" ".MD-VALUE" "KIDS" "^KIDS" ".KIDS" - "CELL-RESET" "UPPER" "FM-MAX" "NEAREST" "FM-MIN-KID" "FM-MAX-KID" "MK-KID-SLOT" - "DEF-KID-SLOTS" "FIND-PRIOR" "FM-POS" "KID-NO" "FM-INCLUDES" "FM-ASCENDANT-COMMON" - "FM-KID-CONTAINING" "FM-FIND-IF" "FM-ASCENDANT-IF" "C-ABS" "FM-COLLECT-IF" "PSIB" - "TO-BE" "NOT-TO-BE" "SSIBNO" "MD-AWAKEN" - #:c-debug "C-BREAK" "C-ASSERT" "C-STOP" "C-STOPPED" "C-ASSERT" ".STOP" - #:delta-diff - ) - #+allegro (:shadowing-import-from #:excl #:fasl-write #:fasl-read #:gc) - ) - (in-package :cells) (defconstant *c-optimizep* t) Index: cell-cultures/cells/defpackage.lisp diff -u cell-cultures/cells/defpackage.lisp:1.1 cell-cultures/cells/defpackage.lisp:1.2 --- cell-cultures/cells/defpackage.lisp:1.1 Sat Jun 26 11:38:36 2004 +++ cell-cultures/cells/defpackage.lisp Tue Jun 29 01:58:49 2004 @@ -20,7 +20,7 @@ ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS ;;; IN THE SOFTWARE. -(in-package :common-lisp) +(in-package :common-lisp-user) (defpackage :cells (:use #:common-lisp @@ -45,8 +45,7 @@ #:def-kid-slots #:find-prior #:fm-pos #:kid-no #:fm-includes #:fm-ascendant-common #:fm-kid-containing #:fm-find-if #:fm-ascendant-if #:c-abs #:fm-collect-if #:psib #:to-be #:not-to-be #:ssibno #:md-awaken - #:c-debug #:c-break #:c-assert #:c-stop #:c-stopped #:c-assert #:.stop - #:delta-diff + #:c-debug #:c-break #:c-assert #:c-stop #:c-stopped #:c-assert #:.stop #:delta-diff ) #+allegro (:shadowing-import-from #:excl #:fasl-write #:fasl-read #:gc) )

1 0

[cells-cvs] CVS update: cell-cultures/asdf-aclproj/asdf-aclproj.asd cell-cultures/asdf-aclproj/asdf-aclproj.lisp
by Thomas F. Burdick 29 Jun '04

29 Jun '04

Update of /project/cells/cvsroot/cell-cultures/asdf-aclproj In directory common-lisp.net:/tmp/cvs-serv14176/asdf-aclproj Added Files: asdf-aclproj.asd asdf-aclproj.lisp Log Message: Added asdf<->lpr glue, and fixed ACL-produced nonsense like defpackage forms for the common-lisp package (I'm guessing ACL ignores these). Date: Tue Jun 29 01:58:48 2004 Author: tburdick

1 0

[cells-cvs] CVS update: Directory change: cell-cultures/asdf-repository
by Thomas F. Burdick 29 Jun '04

29 Jun '04

Update of /project/cells/cvsroot/cell-cultures/asdf-repository In directory common-lisp.net:/tmp/cvs-serv11718/asdf-repository Log Message: Directory /project/cells/cvsroot/cell-cultures/asdf-repository added to the repository Date: Tue Jun 29 01:56:15 2004 Author: tburdick New directory cell-cultures/asdf-repository added

1 0

[cells-cvs] CVS update: Directory change: cell-cultures/asdf-aclproj
by Thomas F. Burdick 29 Jun '04

29 Jun '04

Update of /project/cells/cvsroot/cell-cultures/asdf-aclproj In directory common-lisp.net:/tmp/cvs-serv4384/asdf-aclproj Log Message: Directory /project/cells/cvsroot/cell-cultures/asdf-aclproj added to the repository Date: Tue Jun 29 01:54:05 2004 Author: tburdick New directory cell-cultures/asdf-aclproj added

1 0

[cells-cvs] CVS update: cell-cultures/celtic/button.lisp cell-cultures/celtic/frame.lisp cell-cultures/celtic/widget-item.lisp cell-cultures/celtic/base.lisp
by Kenny Tilton 27 Jun '04

27 Jun '04

Update of /project/cells/cvsroot/cell-cultures/celtic In directory common-lisp.net:/tmp/cvs-serv8831/celtic Modified Files: button.lisp frame.lisp widget-item.lisp Removed Files: base.lisp Log Message: Date: Sun Jun 27 21:25:14 2004 Author: ktilton Index: cell-cultures/celtic/button.lisp diff -u cell-cultures/celtic/button.lisp:1.2 cell-cultures/celtic/button.lisp:1.3 --- cell-cultures/celtic/button.lisp:1.2 Sun Jun 27 16:54:28 2004 +++ cell-cultures/celtic/button.lisp Sun Jun 27 21:25:14 2004 @@ -30,7 +30,7 @@ -bitmap -borderwidth -cursor -disabledforeground -font -foreground -highlightbackground -highlightcolor -highlightthickness -image -justify -padx -pady -relief -repeatdelay - -repeatinterval -takefocus -text -textvariable (-uline -underline) -wraplength + -repeatinterval -takefocus -text -textvariable -underline -wraplength (-command nil) -compound -default -height -overrelief -state -width)) Index: cell-cultures/celtic/frame.lisp diff -u cell-cultures/celtic/frame.lisp:1.2 cell-cultures/celtic/frame.lisp:1.3 --- cell-cultures/celtic/frame.lisp:1.2 Sun Jun 27 16:54:28 2004 +++ cell-cultures/celtic/frame.lisp Sun Jun 27 21:25:14 2004 @@ -45,6 +45,19 @@ -takefocus -background (tk-class -class) -colormap -container -height -visual -width -text -labelanchor -labelwidget)) +(defmodel stack (frame) + () + (:default-initargs + :kid-slots (lambda (self) + (declare (ignore self)) + (list + (mk-kid-slot (layout :if-missing t) + (c? (format nil "pack~{ ~a~} -side {top} -anchor nw" + (path self)))))))) +(defun stack (&rest init-args) + (apply 'make-instance 'stack init-args)) + + (defun test-labelframe () (make-be 'labelframe :text "Considering" Index: cell-cultures/celtic/widget-item.lisp diff -u cell-cultures/celtic/widget-item.lisp:1.1 cell-cultures/celtic/widget-item.lisp:1.2 --- cell-cultures/celtic/widget-item.lisp:1.1 Sat Jun 26 11:38:38 2004 +++ cell-cultures/celtic/widget-item.lisp Sun Jun 27 21:25:14 2004 @@ -35,8 +35,7 @@ :initform (c? (format nil "~a.~a" (if (fm-parent self) (path .parent) "") (name self)))) - (layout :reader layout :initarg :layout - :initform (c? (format nil "pack ~a" (path self)))) + (layout :reader layout :initarg :layout :initform nil) (configurations :reader configurations :initarg :configurations :initform nil)) (:default-initargs :md-name (create-name))) @@ -98,7 +97,7 @@ )) (defmethod not-to-be :after ((self item)) - (trc "whacking item" self) + (trc nil "whacking item" self) (tk-send (format nil "~a delete ~a" (path (upper self widget)) (id-no self)))) (defmethod make-tk-instance :after ((self item))

1 0