Thanks, compiling works now.
However, when I launch a demo (say demo/demo-scrollbar), I get this:
The value (LAMBDA () (- (GV '#k<AGGREGATE-556> :TOP) (GVL :HEIGHT)))
is not of type
(OR FUNCTION SYMBOL)
it comes from demo/demo-scrollbar.lisp:
(setf trill-box-incr (MAC-make-incr-box viewport 'trill-box-incr1 =20
(formula `(gv ',scroll-bar-name :left))
(formula `(- (gv ',scroll-bar-=20
name :top) ; <-- here
(formula `(gv ',scroll-bar-name :width))
For those who would be grateful enough to help me, I put a tbz file =20
here with the modifs I made to make it compile:
look at garnet/diff.patch (joined to this mail) to see what path to =20
set (only 3 variables)
and in garnet/src just do:
sbcl --load docompile.lisp
sbcl --load dotest.lisp
Le 24 mai 07 =C3=A0 02:05, Pascal Bourguignon a =C3=A9crit :
> St=C3=A9phane Conversy <conversy@...> writes:
>> I tried to use garnet with sbcl.
>> I installed sbcl using darwinports on my mac, then I installed clx =20=
>> with asdf.
>> I then run this script:
>> (require 'asdf)
>> (require 'clx)
>> (load "garnet-prepare-compile")
>> (load "garnet-loader")
>> (load "garnet-compiler")
>> but sbcl fails to compile:
>> The value (T &OPTIONAL T) is not of type SYMBOL.
>> in kr.lisp: 212
>> (defun g-value-inherit-values (schema slot is-leaf slot-structure)
>> (declare (function formula-fn (t &optional t) t))
>> (let (has-parents)
>> (if (a-local-only-slot slot) ; These CANNOT be inherited.
>> (return-from g-value-inherit-values NIL))
>> I'm not fluent in lisp, any tips ?
> You can try to replace:
> (declare (function formula-fn (t &optional t) t))
> (declare (ftype (function (t &optional t) t) formula-fn))
> __Pascal Bourguignon__ http://=20
> NOTE: The most fundamental particles in this product are held
> together by a "gluing" force about which little is currently known
> and whose adhesive power can therefore not be permanently
Ecole Nationale de l'Aviation Civile, Toulouse, France
enac: +33 5 62 17 40 19
dgac r&d: +33 5 62 25 96 48