[cells-devel] A few patches for making cells (3.0 from cvs) run on debian unstable using sbcl.

[Francisco Vides Fernández]

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
+------