Sucess
I changed the following lines in defins.lisp
#+(and sbcl (or sgi sun linux))
(sb-alien:define-alien-routine (,c-ff-name ,c-ff-cmu) sb-alien:int
(datar (* double-float))
(len sb-alien:int) (datai (* sb-alien:int)) (ilen sb-
alien:int))
.. to ..
#+sbcl
(sb-alien:define-alien-routine (,c-ff-name ,c-ff-cmu) sb-alien:int
(datar (* double-float))
(len sb-alien:int) (datai (* sb-alien:int)) (ilen sb-
alien:int))
and
#+(and sbcl (or sgi sun linux))
(defun ,c-ff (c &optional d e f)
(,c-ff-cmu (array-data-address c) d (array-data-address e) f))
..to..
#+sbcl
(defun ,c-ff (c &optional d e f)
(,c-ff-cmu (array-data-address c) d (array-data-address e) f))
and it worked. I tried to change the line #+(and sbcl (or sgi sun
linux)) to #+(and sbcl (or sgi sun linux macosx)) but it did not
work. Thats why I used #-sbcl.
Best Regards
Daniel Ståhl
_______________________________________________
Cmdist mailing list
[email protected]
http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
