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:[EMAIL PROTECTED]:/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: [EMAIL PROTECTED]
Gefionsvej 19
DK-8230 Åbyhøj tel: +45 87 44 11 99
Denmark mob: +45 30 91 84 31
_______________________________________________
cells-devel site list
cells-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/cells-devel
