[CM] [CLM]: convolve-files, make-convolve

[Bill Schottstaedt]

 > Theres no output coming out of convolve in recent clm.

I think this was caused by a typo in ffi.lisp -- the cmucl/sbcl
arguments to file->array got scrambled somehow -- thanks
for the bug report!



*** /user/b/bil/cl/ffi.lisp	2004-06-16 03:26:48.000000000 -0700
--- /usr/ccrma/lisp/src/clm/ffi.lisp	2004-05-17 03:38:52.000000000 -0700
***************
*** 774,780 ****
       (def-alien-routine ("clm_file2array" file->array-1)
   	c-call:int
   	(file c-call:c-string) (chan c-call:int) (start c-call:int) (samples c-call:int)  (arr (* double-float)))
!     (defun file->array (file chan start samples arr) (file->array-1 file chan start samples (array-data-address arr)))
       (def-alien-routine ("mus_bytes_per_sample" format->bytes) c-call:int (frm c-call:int))

       ;; cmus.c for rt.lisp
--- 774,780 ----
       (def-alien-routine ("clm_file2array" file->array-1)
   	c-call:int
   	(file c-call:c-string) (chan c-call:int) (start c-call:int) (samples c-call:int)  (arr (* double-float)))
!     (defun file->array (file chan start samples arr) (file->array-1 file start samples chan (array-data-address arr)))
       (def-alien-routine ("mus_bytes_per_sample" format->bytes) c-call:int (frm c-call:int))

       ;; cmus.c for rt.lisp
***************
*** 1014,1020 ****
       (sb-alien:define-alien-routine ("clm_file2array" file->array-1)
   	sb-alien:int
   	(file sb-alien:c-string) (chan sb-alien:int) (start sb-alien:int) (samples sb-alien:int)  (arr (* double-float)))
!     (defun file->array (file chan start samples arr) (file->array-1 file chan start samples (array-data-address arr)))
       (sb-alien:define-alien-routine ("mus_bytes_per_sample" format->bytes) sb-alien:int (frm sb-alien:int))

       ;; cmus.c for rt.lisp
--- 1014,1020 ----
       (sb-alien:define-alien-routine ("clm_file2array" file->array-1)
   	sb-alien:int
   	(file sb-alien:c-string) (chan sb-alien:int) (start sb-alien:int) (samples sb-alien:int)  (arr (* double-float)))
!     (defun file->array (file chan start samples arr) (file->array-1 file start samples chan (array-data-address arr)))
       (sb-alien:define-alien-routine ("mus_bytes_per_sample" format->bytes) sb-alien:int (frm sb-alien:int))

       ;; cmus.c for rt.lisp