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

[Kenny Tilton]

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/