cells-devel June 2009

cells-devel@common-lisp.net

10 participants
10 discussions

[cells-devel] A few patches for making cells (3.0 from cvs) run on debian unstable using sbcl.
by Peder Chr. Nørgaard 14 Dec '09

14 Dec '09

Hello cells-devel list. I am investigating cells and cells-gtk3 for a project that I am planning. For a starter, I needed to get the software running on my Debian unstable system. It needed a few patches that you may wish to take into your development. The version of cells that I use is taken with cvs -z3 -d :pserver:anonymous:anonymous@common-lisp.net:/project/cells/cvsroot co cells That is the most actual one, yes? Well, the sbcl on Debian unstable (1.0.18) does not have nor need the EXCL package. So it must be configured out: diff -u -r cells/defpackage.lisp cl/cells/defpackage.lisp --- cells/defpackage.lisp 2008-10-12 03:21:07.000000000 +0200 +++ MDM/cl/cells/defpackage.lisp 2008-11-28 20:08:38.000000000 +0100 @@ -23,7 +23,7 @@ (in-package :common-lisp-user) (defpackage :cells - (:use #:common-lisp #:excl #:utils-kt) + (:use #:common-lisp #-sbcl #:excl #:utils-kt) (:import-from ;; MOP #+allegro #:excl diff -u -r cells/utils-kt/defpackage.lisp cl/cells/utils-kt/defpackage.lisp --- cells/utils-kt/defpackage.lisp 2008-10-12 03:21:10.000000000 +0200 +++ MDM/cl/cells/utils-kt/defpackage.lisp 2008-11-28 20:04:08.000000000 +0100 @@ -35,7 +35,8 @@ (defpackage :utils-kt (:nicknames #:ukt) - (:use #:common-lisp #:excl + (:use #:common-lisp + #-sbcl #:excl #+(or allegro lispworks clisp) #:clos #+cmu #:mop #+sbcl #:sb-mop The sbcl does not have the MOP package - it is called SB-MOP. Much of the code knows that already, but I had to patch one file: diff -u -r cells/utils-kt/detritus.lisp cl/cells/utils-kt/detritus.lisp --- cells/utils-kt/detritus.lisp 2008-10-12 03:21:10.000000000 +0200 +++ MDM/cl/cells/utils-kt/detritus.lisp 2008-11-28 20:07:57.000000000 +0100 @@ -33,7 +33,7 @@ (let ((cc (find-class c))) (when cc (finalize-inheritance cc)) - (mop::class-prototype cc))) + (#+sbcl sb-mop:class-prototype #-sbcl mop::class-prototype cc))) (defun brk (&rest args) After that, I tried to run the test suite. Worked fine, except that it is a little bit too Window'ish. I did this: diff -u -r cells/cells-test/test.lisp cl/cells/cells-test/test.lisp --- cells/cells-test/test.lisp 2008-10-12 03:21:09.000000000 +0200 +++ MDM/cl/cells/cells-test/test.lisp 2008-12-01 22:25:26.000000000 +0100 @@ -69,7 +69,7 @@ (defun test-cells () - (dribble "c:/0algebra/cells-test.txt") + (dribble "/tmp/cells-test.txt") (progn ;prof:with-profiling (:type :time) (time (progn but that is not what you want to go in the main sources. Maybe something based on the features - (dribble #+unix "/tmp/cells-test.txt" #-unix "c:/0algebra/cells-test.txt") - or perhaps just a file name parameter to TEST-CELLS with the above as the default value? Hope this is of a little help to you. I am sure to come back for assistance for my project later. best regards -- Peder Chr. Nørgaard e-mail: pcn(a)pogt.dk Gefionsvej 19 DK-8230 Åbyhøj tel: +45 87 44 11 99 Denmark mob: +45 30 91 84 31

6 5

[cells-devel] make-instance, initarg, c-in
by Bastian Müller 01 Jul '09

01 Jul '09

Hi, I'm currently using cells and it works very well, except one thing seems a little unhandy: When defining a model it's possible to use (c-in ..) as an initform to define a slot as a cell, but when instantiating a class you have to supply (c-in ...) instead the normal value, eg. (defmodel x () ((y :accessor y :initarg :y :initform (c-in nil)) ...)) (let ((test (make-instance 'x :y (c-in 1)))) (setf (y test) 2)) works, but instead sth like (let ((test (make-instance 'x :y 1))) (setf (y test) 2)) would be nice. I tried it with (defmethod initialize-instance ((self x) &rest rest) (loop for slot in rest by #'cddr do (let ((value (getf rest slot)) (name (intern (symbol-name slot)))) (setf (slot-value self name) (c-in value))))) but I just get: The slot CELLS::.CELLS is unbound in the object #<X {10032D5FC1}>. [Condition of type UNBOUND-SLOT] Is there any way to get this behavior? kind regards, Bastian

3 3

Re: [cells-devel] Cells & Clozure CL
by Kenneth Tilton 30 Jun '09

30 Jun '09

[I have taken the liberty of CCing cells-devel because it might be useful in the archive.] Neil Baylis wrote: > This cells.. is a good thing. Do you want to incorporate the changes I > made to make it work under Clozure CL? Nah, I am not really doing o/s any more. Thx, tho. > >>From what I've seen so far, it looks as though it fits with my > project, which is some kind of geometry/art tool for exploring > tilings, tessellations, symmetries, etc. > > The graphic objects will mainly be triangles and squares, and I'm > still figuring out how I want to model them. > > Take triangles: At first glance, it looks as though I would model a > triangle with a cell. I would have some way to initialize it, and then > slots to return attributes. E.g. if I specifed 3 sides, there would be > slots that returned the angles (lazily). Another slot might return the > area. That much I understand. > > But there are more ways to create a triangle. I could specify 3 sides, > or 2 sides and an angle, etc. I could also say "make it similar to > that triangle over there, but the same size as that square over there, > etc. So, it seems to me that each of those cases would require a > different defmodel, because they would have different initforms. Is > that right? No. One of the most powerful features of Cells is an accident: OO works now, because two instances of the same class can have different rules (or a non-rule literal or an input cell allowing conventional procedural code to alter a slot) for the same slot. This means more reuse for a class, because normally the variation you describe requires one to forever be creating new classes. The only question is whether you go crazy and have just one class (say, polygon) or strike a middle ground and have classes for triangle, quadrangle, etc. I guess it comes down to how much you want to get out of method specialization, which obviously calls for a different instance type. That said, I often create a class (a defmodel) just as a way of bundling up a bunch of rules. ie, They can as well be functions or macros with a make-instance 'polygon inside. I guess for debugging and inspecting specifically a different class can be of use. You prolly do want a defmodel triangle, but going for isosceles might be a point of dimishing return. > > Anyway, assume I have that sorted out. Then, I'll create a bunch of > instances of these classes. I'd start by putting one of them in the > middle of the canvas. Then attach others to it, as dependents.So, if I > then change a dimension on the original object, that change would have > to propagate to all the dependent objects so they resize themselves. > That part sounds like cells to me. > > The relationships will all be about geometry: coincident points, equal > angles, similar figures, parallel lines, intersections, etc. "This > triangle is rotated 45 degrees further than that one over there". And > so on. Maybe circles as well, tangents, secants, etc. That's a lot of > stuff right there. > > I've attached an image of the kind of thing I want to do. This one I > created in Inkscape, but the UI there is somewhat horrid and it's easy > for cumulative errors to creep in. But that was built up entirely from > small squares and triangles. It's a reproduction of a tile pattern I > saw in Sydney Australia when I went there earlier this year. Nice. > > I was thinking I wanted a full blown geometric constraint solver, but > I'm hoping that I don't need that. It's a lot of math and other > theory I want to avoid learning at the moment. Cells looks like it > might do the trick. I need to get more familiar with it though. Not sure where you need a solver, unless the idea is that you hope to specify just a few parameters and let a solver figure out a pattern that "works". Cells is not about that -- we specify all the rules and the Cells engine just sees to it that the rules run. If you need something non-deterministic I would use Screamer+ to work out the hard stuff and have cell rules mine the screamer results. > > > I also had a probably dumbass newbie question: Whenever I eval a > (defmodel..) I get compiler errors, such as: > > CELLS> (defmodel hello-cells () > ((num :accessor num :initarg :num :initform (c-in 0)) > (square-num :accessor square-num > :initform (c? (* (num self) (num self)))))) > ;Compiler warnings : > ; In an anonymous lambda form inside an anonymous lambda form inside > an anonymous lambda form: Undefined function NUM > ; In an anonymous lambda form inside an anonymous lambda form inside > an anonymous lambda form: Undefined function NUM > NIL > CELLS> > > I imagine there's some delcaration I need to invoke to make that not > happen. Any ideas? I actually see that from time to time, but rarely. There must be something wrong with my eval-whens internal to defmodel. You won't see those on subsequent iterations, so ignore them (or go crazy and debug defmodel). cheers, ken

3 2

[cells-devel] Cells & Clozure CL
by Neil Baylis 30 Jun '09

30 Jun '09

I guess I have to assume nobody is using Cells with CCL. I'm attempting to get it to work, but am a little out of my depth. To begin with, I had to add a couple of conditionals for ccl to get past initial errors. Then: ,load-system cells There is no package named "EXCL" . [Condition of type CCL::NO-SUCH-PACKAGE] I don't know what EXCL is, but I'm offered a restart to treat it as a nickname for "COMMON-LISP-USER", so I choose that: Reader error on #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/Users/neil/.asdf-install-dir/site/cells/utils-kt/..."/7 ISO-8859-1) #x8D1F7CE>, near position 921, within " (mop::class-prot": Reference to unknown package "MOP". [Condition of type CCL::SIMPLE-READER-ERROR] <The above error is referring to line 36 of detritus.lisp> Any advice about how to proceed would be welcomed. I think I ought to begin by resolving the EXCL issue, but haven't had much luck finding such a package. Thanks, Neil Baylis []

2 2

[cells-devel] First time for me: Currrent DP not GE pulse x .... ?!?
by Frank Goenninger 29 Jun '09

29 Jun '09

Hi all Cells-users: It is the first time I get a Current DP 1 not GE pulse 4 of cell (NIL . <vld>)<4:A ASCENDER/HELVETICA = NIL> [Condition of type SIMPLE-ERROR] error. This code throws the error: (defun c-pulse-update (c key) (declare (ignorable key)) (unless (find key '(:valid-uninfluenced)) (trc nil "!!!!!!! c-pulse-update updating !!!!!!!!!!" *data-pulse- id* c key :prior-pulse (c-pulse c))) (assert (>= *data-pulse-id* (c-pulse c)) () "Current DP ~a not GE pulse ~a of cell ~a" *data-pulse-id* (c- pulse c) c) (setf (c-pulse c) *data-pulse-id*)) Backtrace: 0: (ERROR "Current DP ~a not GE pulse ~a of cell ~a" 1 4 (NIL . <vld>)<4:A ASCENDER/HELVETICA = NIL>) 1: (CELLS::C-PULSE-UPDATE (NIL . <vld>)<4:A ASCENDER/HELVETICA = NIL> :VALID-UNINFLUENCED) Locals: CELLS::C = (NIL . <vld>)<4:A ASCENDER/HELVETICA = NIL> CELLS::KEY = :VALID-UNINFLUENCED CELLS::C = (NIL . <vld>)<4:A ASCENDER/HELVETICA = NIL> #:|g38499| = #(0 NIL ..) 2: (CELLS::ENSURE-VALUE-IS-CURRENT (NIL . <vld>)<4:A ASCENDER/ HELVETICA = NIL> :C-READ NIL) 3: ((:INTERNAL CELLS::CELL-READ 0) NIL NIL) 4: (CELLS::CALL-WITH-INTEGRITY NIL NIL #<Closure (:INTERNAL CELLS::CELL-READ 0) @ #x10e6b8da> NIL) 5: (CELLS::CELL-READ (NIL . <vld>)<4:A ASCENDER/HELVETICA = NIL>) 6: (CELLS::MD-SLOT-VALUE HELVETICA CNX::ASCENDER) 7: ((METHOD CNX::ASCENDER (CNX::CELLO-FONT)) HELVETICA) 8: ((METHOD CNX::FONT-ASCENDER (CNX::CELLO-CONTROL)) FRGO-TEXT-1) Locals: CELLS:SELF = FRGO-TEXT-1 9: ((:INTERNAL (MOP:CLASS-DEFAULT-INITARGS CNX::CNX-TEXT :LT) 0) dirty<0:A LT/FRGO-TEXT-1 = NIL>) 10: (CELLS::CALCULATE-AND-LINK dirty<0:A LT/FRGO-TEXT-1 = NIL>) 11: ((FLET CELLS::CALCULATE-AND-SET CELLS::BODY)) 12: (CELLS::CALCULATE-AND-SET dirty<0:A LT/FRGO-TEXT-1 = NIL> :FN- AWAKEN-CELL NIL) 13: ((METHOD CELLS::AWAKEN-CELL (CELLS::C-RULED)) dirty<0:A LT/FRGO- TEXT-1 = NIL>) 14: ((METHOD CELLS:MD-AWAKEN (CELLS::MODEL-OBJECT)) FRGO-TEXT-1) 15: ((METHOD CELLS:MD-AWAKEN :AROUND (CELLS::MODEL-OBJECT)) FRGO- TEXT-1) 16: ((:INTERNAL (:EFFECTIVE-METHOD 1 NIL NIL T T) 0) FRGO-TEXT-1) 17: ((:INTERNAL (:INTERNAL (METHOD SHARED-INITIALIZE :AFTER #) 0) 0) :AWAKEN FRGO-TEXT-1) 18: (CELLS::JUST-DO-IT :AWAKEN) 19: (CELLS::FINISH-BUSINESS) 20: ((FLET CELLS::CALL-WITH-INTEGRITY CELLS::GO-GO)) 21: (CELLS::CALL-WITH-INTEGRITY NIL NIL #<Closure (:INTERNAL CTK:: %RUN-WINDOW 0) [CELLO-NX-TEST-MAIN-WINDOW] @ #x10dd0fea> NIL) 22: (CTK::%RUN-WINDOW) 23: (CTK::%DO-RUN-WINDOW) 24: (CTK:RUN-WINDOW CNX-TEST::CELLO-NX-TEST-MAIN-WINDOW) 25: (CNX-TEST:TEST-MAIN) Now - questions I have are: What does :valid-uninfluenced actually mean? Is the code above correct or should the assertion be inside the (unless ...) form? What is the logic behind? Thanks for helping ... Cheers Frank -- Frank Goenninger Cell: +49 175 4321058 E-Mail: frgo(a)me.com

2 4

[cells-devel] Cells & Clozure CL
by Neil Baylis 25 Jun '09

25 Jun '09

Hello, I'm wanting to look at cells for a new project I'm into, which will be using Clozure CL on Mac. Has anyone got cells working with Clozure CL and could provide me with pointers? (I want to use the Cocoa bridge, so SBCL will not work for me). Thanks, Neil Baylis -- http://www.pixpopuli.com

1 0

[cells-devel] Which cellsy lisp GUI?
by Tiarnan O'Corrain 24 Jun '09

24 Jun '09

Hi-- a question for the cognoscenti: which of the various Cells-based GUI toolkits is the easiest to pick up and use on an experimental project? I know there's a Cells/GTK mix, a Cell/Tk one which was getting a lot of discussion some time ago, and the sunlit uplands of Cello. Any recommendations? I have a simple GUI client in mind, nothing too fancy. regards Tiarnan -- difficile est saturam non scribere

4 7

[cells-devel] What is functional reactive programming?
by Andy Chambers 24 Jun '09

24 Jun '09

Someone asks this on stackoverflow. http://stackoverflow.com/questions/1028250/what-is-functional-reactive-prog… -- ---- Andy Chambers Formedix Ltd

3 2

[cells-devel] Fwd: Cells on ABCL
by Alessio Stalla 04 Jun '09

04 Jun '09

Sorry, I sent this directly to Kenny instead of to the mailing list. Alessio ---------- Forwarded message ---------- From: Alessio Stalla <alessiostalla(a)gmail.com> Date: Tue, May 26, 2009 at 10:53 PM Subject: Re: [cells-devel] Cells on ABCL To: Kenneth Tilton <kentilton(a)gmail.com> On Tue, May 26, 2009 at 2:17 PM, Kenneth Tilton <kentilton(a)gmail.com> wrote: > Does ABCL provide a backtrace that might show in which function the error > originates? abcl's backtrace does not seem very useful: [1] CL-USER(8): :bt 0: (BACKTRACE-AS-LIST) 1: (INVOKE-DEBUGGER #<TYPE-ERROR {7F84C9}>) 2: (CELLS::CV-TEST-PERSON-3) 3: (CELLS::CV-TEST-PERSON) 4: (FUNCALL CELLS::CV-TEST-PERSON) 5: (SYSTEM::%TIME #<FUNCTION (LAMBDA ()) {1E6DBAA}>) 6: (CELLS::TEST-CELLS) 7: (SYSTEM::%EVAL (CELLS::TEST-CELLS)) > Also: IIRC, ct-assert says what it is doing as it goes. So how far are you > getting? If I am wrong on that, just add some print statements so we can > narrow it down. This is what it prints before it fails: (CELLS::ATTEMPTING (EQL 1 (LENGTH (CELLS::CD-USEDS (CELLS::MD-SLOT-CELL CELLS::P (QUOTE CELLS::THOUGHT)))))) 0> output thought #<cells::person {15eb44d}> "speedy, slow down!"0> i am thinking "speedy, slow down!" (CELLS::ATTEMPTING (EQL 2 (LENGTH (CELLS::CD-USEDS (CELLS::MD-SLOT-CELL CELLS::P (QUOTE CELLS::THOUGHT)))))) 0> output thought #<cells::person {15eb44d}> "nice and easy does it"0> i am thinking "nice and easy does it" (CELLS::ATTEMPTING (EQL 1 (LENGTH (CELLS::CD-USEDS (CELLS::MD-SLOT-CELL CELLS::P (QUOTE CELLS::THOUGHT)))))) Debugger invoked on condition of type TYPE-ERROR: The value NIL is not of type STRUCTURE-OBJECT. Probably it's an abcl bug (I've seen other times bugs that were apparent in the form of "NIL is not of type X"). In the next few days I'll be at the ELS, so I won't have much time to spend on the subject, but asap I'll try to debug it. Bye, Alessio

3 3

[cells-devel] Cello: What does "swdw" stand for ?
by Frank Goenninger 01 Jun '09

01 Jun '09

Oh that abbreviationism of His Kennyness ... ;-) As ".w." is defined as (define-symbol-macro .w. (or (.window-cache self) (setf (.window-cache self) (upper self window)))) and swdw is defined as (defmacro swdw () '.w.) I am guessing that this stands for something like "symbol-w?-d?- window" but I may be simply going wild and crazy here (that being my standard ending for mails to Kenny as I have completely missed a fundamental concept in the past ;-) Thanks for enlightening me! Cheers Frank -- Frank Goenninger Cell: +49 175 4321058 E-Mail: frgo(a)me.com

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

cells-devel June 2009