1.1--- a/lisp/ffi/sndfile/pkg.lisp Thu Oct 03 21:54:07 2024 -0400
1.2+++ b/lisp/ffi/sndfile/pkg.lisp Fri Oct 04 16:14:44 2024 -0400
1.3@@ -13,6 +13,10 @@
1.4
1.5 (define-alien-loader "sndfile" t "/usr/lib/")
1.6
1.7+(define-opaque sndfile t)
1.8+
1.9+(define-opaque sf-chunk-iterator)
1.10+
1.11 (define-alien-type sf-count long)
1.12
1.13 (define-alien-type sf-info
1.14@@ -273,8 +277,6 @@
1.15 :set-add-dither-on-read #x1071)
1.16
1.17 ;;; Functions
1.18-(define-opaque sndfile t)
1.19-
1.20 (define-alien-routine sf-open (* sndfile) (path c-string) (mode int) (sfinfo (* sf-info)))
1.21 (define-alien-routine sf-open-fd (* sndfile) (fd int) (mode int) (sfinfo (* sf-info)))
1.22 (define-alien-routine sf-error int (sndfile (* sndfile)))
1.23@@ -309,8 +311,6 @@
1.24 (sndfile (* sndfile))
1.25 (chunk-info (* sf-chunk-info)))
1.26
1.27-(define-opaque sf-chunk-iterator)
1.28-
1.29 (define-alien-routine sf-get-chunk-iterator (* sf-chunk-iterator)
1.30 (sndfile (* sndfile))
1.31 (chunk-info (* sf-chunk-info)))