[CM] [CLM]: convolve-files, make-convolve
Bill Schottstaedt
bil at ccrma.Stanford.EDU
Wed Jun 16 03:35:28 PDT 2004
> 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
More information about the Cmdist
mailing list