Re: [Sbcl-help] compiling garnet

[Pascal B. <pj...@in...>]

Stéphane Conversy <con...@ce...> writes:

> Hi,
>
> I tried to use garnet with sbcl.
> I installed sbcl using darwinports on my mac, then I installed clx 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))

with:

   (declare (ftype (function (t &optional t) t)  formula-fn))


-- 
__Pascal Bourguignon__                     http://www.informatimago.com/

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
guaranteed.