changelog shortlog graph tags branches changeset file revisions annotate raw help

Mercurial > core / lisp/ffi/sndfile/pkg.lisp

revision 695: 2bad47888dbf
parent 694: a36280d2ef4e
child 696: 38e9c3be2392
     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)))