From pcn at pogt.dk Tue Dec 2 18:18:25 2008 From: pcn at pogt.dk (Peder Chr. =?iso-8859-1?q?N=F8rgaard?=) Date: Tue, 2 Dec 2008 19:18:25 +0100 Subject: [cells-devel] A few patches for making cells (3.0 from cvs) run on debian unstable using sbcl. Message-ID: <200812021918.25100.pcn@pogt.dk> 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 at 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 at pogt.dk Gefionsvej 19 DK-8230 ?byh?j tel: +45 87 44 11 99 Denmark mob: +45 30 91 84 31 From kennytilton at optonline.net Tue Dec 2 19:58:40 2008 From: kennytilton at optonline.net (Kenny Tilton) Date: Tue, 02 Dec 2008 14:58:40 -0500 Subject: [cells-devel] A few patches for making cells (3.0 from cvs) run on debian unstable using sbcl. In-Reply-To: <200812021918.25100.pcn@pogt.dk> References: <200812021918.25100.pcn@pogt.dk> Message-ID: <49359370.4010900@optonline.net> Peder Chr. N?rgaard wrote: > 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 at 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 > Hey, Peder. Thx, I'll try to get these in later. Good luck with Cells-gtk. Cheers, ken -- http://www.theoryyalgebra.com/