Update of /project/cells/cvsroot/cells In directory clnet:/tmp/cvs-serv26430

Modified Files: README.txt cells-test.asd cells.lpr defpackage.lisp load.lisp Log Message: More work on Cells and Celtk

--- /project/cells/cvsroot/cells/README.txt 2005/05/06 21:05:45 1.1 +++ /project/cells/cvsroot/cells/README.txt 2006/03/22 04:08:34 1.2 @@ -12,18 +12,22 @@ of tracking dependencies among cells, and propagating values. It is distributed under an MIT-style license.

-Documentation is unfortunately quite lacking; the cells-devel list is -still your best source of information. Some documentation can be -found in the doc/ directory of the distribution. See the website at -http://www.common-lisp.net/project/cells/ for more info. +Documentation/support is in the form of: + + the cells-devel mailing list (users and developers both welcome) + .\docs\01-cell-basics.lisp + .\docs\motor-control.lisp ;; actually Bill Clementson's blog entry + extensive examples in the Cells-test regression test suite + the companion Celtk module, which happens also to provide a substantial and + growing portable, native Common Lisp GUI. + +The above examples have all been tested against the current release of Cells. +Now in .\doc is cells-overview.pdf. That is pretty rough and obsolete in re the +code, but some of it might be enlightening.

Cells is written in almost-portable ANSI Common Lisp. It makes very light use of the introspective portions of the MOP, and contains a few -workarounds for shortcomings in common implementations. It contains -gratuitous use of silly reader conditionals (eg, #-chya, #-not, etc), -so users wishing to push things like :TEST and :NOT on *FEATURES*, and -users of the New Implementation of Lisp (NIL) should beware. If the -last sentance didn't mean anything to you, you can ignore it. +workarounds for shortcomings in common implementations.

Cells is known to currently work on the following Lisp implementations:

@@ -43,7 +47,7 @@ a bug in its CLOS implementation, but has not been investigated in great depth.

-Cells is belived to work with Corman CL, but has not been recently +Cells is believed to work with Corman CL, but has not been recently tested. In the past, MCL was supported, but a it does not currently pass the test suite. Ressurecting full support for any of these implementations should be easy. --- /project/cells/cvsroot/cells/cells-test.asd 2006/03/19 00:28:38 1.4 +++ /project/cells/cvsroot/cells/cells-test.asd 2006/03/22 04:08:34 1.5 @@ -10,7 +10,7 @@ :serial t :depends-on (:cells) :components ((:module "cells-test" - ;;:serial t + :serial t :components ((:file "test") (:file "hello-world") (:file "test-kid-slotting") --- /project/cells/cvsroot/cells/cells.lpr 2006/03/18 00:15:40 1.8 +++ /project/cells/cvsroot/cells/cells.lpr 2006/03/22 04:08:34 1.9 @@ -1,4 +1,4 @@ -;; -*- lisp-version: "8.0 [Windows] (Mar 7, 2006 20:04)"; cg: "1.81"; -*- +;; -*- lisp-version: "8.0 [Windows] (Mar 19, 2006 10:49)"; cg: "1.81"; -*-

(in-package :cg-user)

--- /project/cells/cvsroot/cells/defpackage.lisp 2006/03/16 05:28:28 1.4 +++ /project/cells/cvsroot/cells/defpackage.lisp 2006/03/22 04:08:34 1.5 @@ -51,7 +51,7 @@ #:defmodel #:defobserver #:slot-value-observe #:def-c-unchanged-test #:new-value #:old-value #:old-value-boundp #:c... #:md-awaken - #:mkpart #:the-kids #:nsib #:md-value #:^md-value #:.md-value #:kids #:^kids #:.kids + #:mkpart #:make-kid #:the-kids #:nsib #:md-value #:^md-value #:.md-value #:kids #:^kids #:.kids #:cells-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 --- /project/cells/cvsroot/cells/load.lisp 2006/03/16 05:28:28 1.2 +++ /project/cells/cvsroot/cells/load.lisp 2006/03/22 04:08:34 1.3 @@ -1,16 +1,14 @@ +#+eval-this-if-you-do-not-autoload-asdf (load (make-pathname :device "c" :directory '(:absolute "0dev" "cells") :name "asdf" :type "lisp"))

-(progn - (push (make-pathname :device "c" :directory '(:absolute "0dev" "cells")) +(push (make-pathname :device "c" :directory '(:absolute "0dev" "cells")) asdf:*central-registry*)

- (ASDF:OOS 'ASDF:LOAD-OP :CELLS :force t)) - -;;;(push (make-pathname :device "c" -;;; :directory '(:absolute "0dev" "cells" "cells-test")) -;;; asdf:*central-registry*) +#-runtestsuite +(ASDF:OOS 'ASDF:LOAD-OP :CELLS :force t)

+#+runtestsuite (ASDF:OOS 'ASDF:LOAD-OP :CELLS-TEST :force t) \ No newline at end of file