[cells-devel] A few patches for making cells (3.0 from cvs) run on debian unstable using sbcl.
Francisco Vides Fernández
fvides at dedaloingenieros.com
Sun Dec 13 19:54:02 UTC 2009
Hi
I've just installed cells for evaluation purposes, and been bitten for this
very same problem.
Maybe some nice comittin'?
Thanks for this interesting project!
Peder Chr. =?iso-8859-1?q?N=F8rgaard?= 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
>
--
+-----------------
| Francisco Vides Fernández <fvides at dedaloingenieros.com>
| Director técnico.
| Dédalo Ingenieros http://www.dedaloingenieros.com/
| PGP: http://pgp.rediris.es:11371/pks/lookup?op=index&search=0xB1299C15
+------
More information about the cells-devel
mailing list