(index ("audio-depth->int" 0) ("int->audio-depth" 258) ("channel-configuration->int" 333) ("int->channel-configuration" 615) ("mixer-quality->int" 710) ("int->mixer-quality" 892) ("playmode->int" 971) ("int->playmode" 1151) ("audio-stream" 1220) ("mixer" 1274) ("sample" 1314) ("sample-id" 1356) ("sample-instance" 1404) ("voice" 1464) ("make-sample*" 1504) ("make-sample" 1721) ("free-sample!" 1981) ("make-sample-instance*" 2083) ("make-sample-instance" 2211) ("free-sample-instance!" 2391) ("sample-frequency" 2520) ("sample-length" 2637) ("sample-depth" 2744) ("sample-channels" 2848) ("sample-instance-frequency" 2961) ("sample-instance-length" 3113) ("sample-instance-position" 3256) ("sample-instance-speed" 3405) ("sample-instance-gain" 3545) ("sample-instance-pan" 3682) ("sample-instance-time" 3816) ("sample-instance-depth" 3953) ("sample-instance-channels" 4093) ("sample-instance-playmode" 4242) ("sample-instance-playing?" 4391) ("sample-instance-attached?" 4539) ("sample-instance-position-set!" 4690) ("sample-instance-length-set!" 4866) ("sample-instance-speed-set!" 5036) ("sample-instance-gain-set!" 5192) ("sample-instance-pan-set!" 5345) ("sample-instance-playmode-set!" 5495) ("sample-instance-playing-set!" 5663) ("sample-instance-detach!" 5824) ("sample-instance-sample" 5965) ("sample-instance-sample-set!" 6092) ("sample-instance-play" 6235) ("sample-instance-stop" 6368) ("make-audio-stream*" 6501) ("make-audio-stream" 6726) ("free-audio-stream!" 7000) ("audio-stram-drain" 7126) ("audio-stream-frequency" 7248) ("audio-stream-length" 7388) ("audio-stream-fragments" 7519) ("audio-stream-available-fragments" 7669) ("audio-stream-speed" 7839) ("audio-stream-gain" 7967) ("audio-stream-channels" 8092) ("audio-stream-depth" 8229) ("audio-stream-playmode" 8357) ("audio-stream-playing?" 8494) ("audio-stream-attached?" 8630) ("audio-stream-fragment" 8769) ("audio-stream-speed-set!" 8906) ("audio-stream-gain-set!" 9050) ("audio-stream-pan-set!" 9191) ("audio-stream-playmode-set!" 9329) ("audio-stream-playing-set!" 9485) ("audio-stream-detach!" 9634) ("audio-stream-fragment-set!" 9763) ("audio-stream-rewind!" 9920) ("audio-stream-seek-seconds!" 10049) ("audio-stream-position-seconds" 10200) ("audio-stream-length-seconds" 10357) ("audio-stream-loop-set!" 10502) ("audio-stream-event-source" 10686) ("make-mixer*" 10835) ("make-mixer" 10989) ("free-mixer!" 11185) ("sample-instance-attach-to-mixer!" 11283) ("audio-stream-attach-to-mixer!" 11457) ("mixer-attach-to-mixer!" 11618) ("mixer-postprocess-callback-set!" 11752) ("mixer-frequency" 11981) ("mixer-channels" 12093) ("mixer-depth" 12202) ("mixer-quality" 12302) ("mixer-playing?" 12408) ("mixer-attached?" 12516) ("mixer-frequency-set!" 12627) ("mixer-quality-set!" 12766) ("mixer-playing-set!" 12896) ("mixer-detach!" 13017) ("make-voice*" 13118) ("make-voice" 13272) ("free-voice!" 13468) ("sample-instance-attach-to-voice!" 13566) ("audio-stream-attach-to-voice!" 13740) ("mixer-attach-to-voice!" 13901) ("voice-detach!" 14035) ("voice-frequency" 14136) ("voice-position" 14248) ("voice-channels" 14375) ("voice-depth" 14484) ("voice-playing?" 14584) ("voice-position-set!" 14692) ("voice-playing-set!" 14828) ("audio-addon-install" 14949) ("audio-addon-uninstall" 15057) ("audio-addon-installed?" 15171) ("audio-addon-version" 15290) ("channel-configuration-count" 15410) ("audio-depth-size" 15560) ("default-mixer" 15681) ("default-mixer-set!" 15781) ("default-mixer-restore!" 15897) ("sample-play" 16019) ("sample-stop" 16239) ("reserve-samples" 16339) ("stop-all-samples" 16449) ("register-sample-loader" 16550) ("register-sample-saver" 16727) ("register-audio-stream-loader" 16908) ("register-sample-file-loader" 17135) ("register-sample-file-saver" 17314) ("register-audio-stream-file-loader" 17495) ("load-sample*" 17722) ("load-sample" 17821) ("load-audio-stream*" 17963) ("load-audio-stream" 18130) ("load-audio-stream-from-file*" 18346) ("load-audio-stream-from-file" 18559) ("load-sample-from-file*" 18821) ("load-sample-from-file" 18958) ("sample-save-to-file" 19138) ("sample-save" 19276) ("acodec-addon-init" 19391) ("acodec-addon-version" 19499))
(def (sig (procedure "(audio-depth->int audio-depth)" (id audio-depth->int))) (p (tt "{audio-depth") " may be one of the following symbols:") (ul (li "int8") (li "int16") (li "int24") (li "float32") (li "unsigned") (li "uint8") (li "uint16") (li "uint24")))
(def (sig (procedure "(int->audio-depth integer)" (id int->audio-depth))))
(def (sig (procedure "(channel-configuration->int channel-configuration)" (id channel-configuration->int))) (p (tt "channel-configuration") " may be one of the following symbols:") (ul (li "one") (li "two") (li "three") (li "four") (li "five-one") (li "six-one") (li "seven-one")))
(def (sig (procedure "(int->channel-configuration integer)" (id int->channel-configuration))))
(def (sig (procedure "(mixer-quality->int mixer-quality)" (id mixer-quality->int))) (p (tt "mixer-quality") " may be one of the following symbols:") (ul (li "point") (li "linear")))
(def (sig (procedure "(int->mixer-quality integer)" (id int->mixer-quality))))
(def (sig (procedure "(playmode->int playmode)" (id playmode->int))) (p (tt "playmode") " may be one of the following symbols:") (ul (li "once") (li "loop") (li "bidirectional")))
(def (sig (procedure "(int->playmode integer)" (id int->playmode))))
(def (sig (record "audio-stream" (id audio-stream))))
(def (sig (record "mixer" (id mixer))))
(def (sig (record "sample" (id sample))))
(def (sig (record "sample-id" (id sample-id))))
(def (sig (record "sample-instance" (id sample-instance))))
(def (sig (record "voice" (id voice))))
(def (sig (procedure "(make-sample* (blob buffer) (unsigned-integer samples) (unsigned-integer frequency) audio-depth channel-configuration (bool free-buffer))" (id make-sample*))) (p "Implements al_create_sample."))
(def (sig (procedure "(make-sample (blob buffer) (unsigned-integer samples) (unsigned-integer frequency) audio-depth channel-configuration (bool free-buffer))" (id make-sample))) (p "Implements al_create_sample, with (free-sample!) declared as a finalizer."))
(def (sig (procedure "(free-sample! sample)" (id free-sample!))) (p "Implements al_destroy_sample."))
(def (sig (procedure "(make-sample-instance* sample)" (id make-sample-instance*))) (p "Implements al_create_sample_instance."))
(def (sig (procedure "(make-sample-instance sample)" (id make-sample-instance))) (p "Implements al_create_sample_instance, with (free-sample-instance!) declared as a finalizer."))
(def (sig (procedure "(free-sample-instance! sample)" (id free-sample-instance!))) (p "Implements al_destroy_sample_instance."))
(def (sig (procedure "(sample-frequency sample)" (id sample-frequency))) (p "Implements al_get_sample_frequenecy."))
(def (sig (procedure "(sample-length sample)" (id sample-length))) (p "Implements al_get_sample_length."))
(def (sig (procedure "(sample-depth sample)" (id sample-depth))) (p "Implements al_get_sample_depth."))
(def (sig (procedure "(sample-channels sample)" (id sample-channels))) (p "Implements al_get_sample_channels."))
(def (sig (procedure "(sample-instance-frequency sample-instance)" (id sample-instance-frequency))) (p "Implements al_get_sample_instance_frequency."))
(def (sig (procedure "(sample-instance-length sample-instance)" (id sample-instance-length))) (p "Implements al_get_sample_instance_length."))
(def (sig (procedure "(sample-instance-position sample-instance)" (id sample-instance-position))) (p "Implements al_get_sample_instance-position."))
(def (sig (procedure "(sample-instance-speed sample-instance)" (id sample-instance-speed))) (p "Implements al_get_sample_instance_speed."))
(def (sig (procedure "(sample-instance-gain sample-instance)" (id sample-instance-gain))) (p "Implements al_get_sample_instance_gain."))
(def (sig (procedure "(sample-instance-pan sample-instance)" (id sample-instance-pan))) (p "Implements al_get_sample_instance_pan."))
(def (sig (procedure "(sample-instance-time sample-instance)" (id sample-instance-time))) (p "Implements al_get_sample_instance_time."))
(def (sig (procedure "(sample-instance-depth sample-instance)" (id sample-instance-depth))) (p "Implements al_get_sample_instance_depth."))
(def (sig (procedure "(sample-instance-channels sample-instance)" (id sample-instance-channels))) (p "Implements al_get_sample_instance_channels."))
(def (sig (procedure "(sample-instance-playmode sample-instance)" (id sample-instance-playmode))) (p "Implements al_get_sample_instance_playmode."))
(def (sig (procedure "(sample-instance-playing? sample-instance)" (id sample-instance-playing?))) (p "Implements al_get_sample_instance_playing."))
(def (sig (procedure "(sample-instance-attached? sample-instance)" (id sample-instance-attached?))) (p "Implements al_get_sample_instance_attached."))
(def (sig (procedure "(sample-instance-position-set! sample-instance unsigned-integer)" (id sample-instance-position-set!))) (p "Implements al_set_sample_instance_position."))
(def (sig (procedure "(sample-instance-length-set! sample-instance unsigned-integer)" (id sample-instance-length-set!))) (p "Implements al_set_sample_instance_length."))
(def (sig (procedure "(sample-instance-speed-set! sample-instance float)" (id sample-instance-speed-set!))) (p "Implements al_set_sample_instance_speed."))
(def (sig (procedure "(sample-instance-gain-set! sample-instance float)" (id sample-instance-gain-set!))) (p "Implements al_set_sample_instance_gain."))
(def (sig (procedure "(sample-instance-pan-set! sample-instance float)" (id sample-instance-pan-set!))) (p "Implements al_set_sample_instance_pan."))
(def (sig (procedure "(sample-instance-playmode-set! sample-instance playmode)" (id sample-instance-playmode-set!))) (p "Implements al_set_sample_instance_playmode."))
(def (sig (procedure "(sample-instance-playing-set! sample-instance bool)" (id sample-instance-playing-set!))) (p "Implements al_set_sample_instance_playing."))
(def (sig (procedure "(sample-instance-detach! sample-instance)" (id sample-instance-detach!))) (p "Implements al_detach_sample_instance."))
(def (sig (procedure "(sample-instance-sample sample-instance)" (id sample-instance-sample))) (p "Implements al_get_sample."))
(def (sig (procedure "(sample-instance-sample-set! sample-instance sample)" (id sample-instance-sample-set!))) (p "Implements al_set_sample"))
(def (sig (procedure "(sample-instance-play sample-instance)" (id sample-instance-play))) (p "Implements al_play_sample_instance."))
(def (sig (procedure "(sample-instance-stop sample-instance)" (id sample-instance-stop))) (p "Implements al_stop_sample_instance."))
(def (sig (procedure "(make-audio-stream* (integer buffer-count) (unsigned-integer samples) (unsigned-integer frequency) audio-depth channel-configuration)" (id make-audio-stream*))) (p "Implements al_create_audio_stream."))
(def (sig (procedure "(make-audio-stream (integer buffer-count) (unsigned-integer samples) (unsigned-integer frequency) audio-depth channel-configuration)" (id make-audio-stream))) (p "Implements al_create_audio_stream, with (free-audio-stream!) declared as a finalizer."))
(def (sig (procedure "(free-audio-stream! audio-stream)" (id free-audio-stream!))) (p "Implements al_destroy_audio_stream."))
(def (sig (procedure "(audio-stram-drain audio-stream)" (id audio-stram-drain))) (p "Implements al_drain_audio_stream."))
(def (sig (procedure "(audio-stream-frequency audio-stream)" (id audio-stream-frequency))) (p "Implements al_get_audio_stream_frequency."))
(def (sig (procedure "(audio-stream-length audio-stream)" (id audio-stream-length))) (p "Implements al_get_audio_stream_length."))
(def (sig (procedure "(audio-stream-fragments audio-stream)" (id audio-stream-fragments))) (p "Implements al_get_available_audio_stream_fragments."))
(def (sig (procedure "(audio-stream-available-fragments audio-stream)" (id audio-stream-available-fragments))) (p "Implements al_get_available_audio_stream_fragments."))
(def (sig (procedure "(audio-stream-speed audio-stream)" (id audio-stream-speed))) (p "Implements al_get_audio_stream_speed."))
(def (sig (procedure "(audio-stream-gain audio-stream)" (id audio-stream-gain))) (p "Implements al_get_audio_stream_gain."))
(def (sig (procedure "(audio-stream-channels audio-stream)" (id audio-stream-channels))) (p "Implements al_get_audio_stream_channels."))
(def (sig (procedure "(audio-stream-depth audio-stream)" (id audio-stream-depth))) (p "Implements al_get_audio_stream_depth."))
(def (sig (procedure "(audio-stream-playmode audio-stream)" (id audio-stream-playmode))) (p "Implements al_get_audio_stream_playmode."))
(def (sig (procedure "(audio-stream-playing? audio-stream)" (id audio-stream-playing?))) (p "Implements al_get_audio_stream_playing."))
(def (sig (procedure "(audio-stream-attached? audio-stream)" (id audio-stream-attached?))) (p "Implements al_get_audio_stream_attached."))
(def (sig (procedure "(audio-stream-fragment audio-stream)" (id audio-stream-fragment))) (p "Implements al_get_audio_stream_fragment."))
(def (sig (procedure "(audio-stream-speed-set! audio-stream float)" (id audio-stream-speed-set!))) (p "Implements al_set_audio_stream_speed."))
(def (sig (procedure "(audio-stream-gain-set! audio-stream float)" (id audio-stream-gain-set!))) (p "Implements al_set_audio_stream_gain."))
(def (sig (procedure "(audio-stream-pan-set! audio-stream float)" (id audio-stream-pan-set!))) (p "Implements al_set_audio_stream_pan."))
(def (sig (procedure "(audio-stream-playmode-set! audio-stream playmode)" (id audio-stream-playmode-set!))) (p "Implements al_set_audio_stream_playmode."))
(def (sig (procedure "(audio-stream-playing-set! audio-stream bool)" (id audio-stream-playing-set!))) (p "Implements al_set_audio_stream_playing."))
(def (sig (procedure "(audio-stream-detach! audio-stream)" (id audio-stream-detach!))) (p "Implements al_detach_audio_stream."))
(def (sig (procedure "(audio-stream-fragment-set! audio-stream c-pointer)" (id audio-stream-fragment-set!))) (p "Implements al_set_audio_stream_fragment."))
(def (sig (procedure "(audio-stream-rewind! audio-stream)" (id audio-stream-rewind!))) (p "Implements al_rewind_audio_stream."))
(def (sig (procedure "(audio-stream-seek-seconds! audio-stream double)" (id audio-stream-seek-seconds!))) (p "Implements al_seek_audio_stream_secs."))
(def (sig (procedure "(audio-stream-position-seconds audio-stream)" (id audio-stream-position-seconds))) (p "Impements al_get_audio_stream_position_secs."))
(def (sig (procedure "(audio-stream-length-seconds audio-stream)" (id audio-stream-length-seconds))) (p "Implements al_get_audio_length_secs."))
(def (sig (procedure "(audio-stream-loop-set! audio-stream (double start-seconds) (double end-seconds))" (id audio-stream-loop-set!))) (p "Implements al_set_audio_stream_loop_secs."))
(def (sig (procedure "(audio-stream-event-source audio-stream)" (id audio-stream-event-source))) (p "Implements al_get_audio_stream_event_source."))
(def (sig (procedure "(make-mixer* (unsigned-integer frequency) audio-depth channel-configuration)" (id make-mixer*))) (p "Implements al_create_mixer."))
(def (sig (procedure "(make-mixer (unsigned-integer frequency) audio-depth channel-configuration)" (id make-mixer))) (p "Implements al_create_mixer, with (free-mixer!) declared as a finalizer."))
(def (sig (procedure "(free-mixer! mixer)" (id free-mixer!))) (p "Implements al_destroy_mixer."))
(def (sig (procedure "(sample-instance-attach-to-mixer! sample-instance mixer)" (id sample-instance-attach-to-mixer!))) (p "Implements al_attach_sample_instance_to_mixer."))
(def (sig (procedure "(audio-stream-attach-to-mixer! audio-stream mixer)" (id audio-stream-attach-to-mixer!))) (p "Implements al_attach_audio_stram_to_mixer."))
(def (sig (procedure "(mixer-attach-to-mixer! mixer mixer)" (id mixer-attach-to-mixer!))) (p "Implements al_attach_mixer_to_mixer."))
(def (sig (procedure "(mixer-postprocess-callback-set! mixer (function void (c-pointer unsigned-integer32 c-pointer)) (c-pointer data))" (id mixer-postprocess-callback-set!))) (p "Implements al_set_mixer_postprocess_callback."))
(def (sig (procedure "(mixer-frequency mixer)" (id mixer-frequency))) (p "Implements al_get_mixer_frequency."))
(def (sig (procedure "(mixer-channels mixer)" (id mixer-channels))) (p "Implements al_get_mixer_channels."))
(def (sig (procedure "(mixer-depth mixer)" (id mixer-depth))) (p "Implements al_get_mixer_depth."))
(def (sig (procedure "(mixer-quality mixer)" (id mixer-quality))) (p "Implements al_get_mixer_quality."))
(def (sig (procedure "(mixer-playing? mixer)" (id mixer-playing?))) (p "Implements al_get_mixer_playing."))
(def (sig (procedure "(mixer-attached? mixer)" (id mixer-attached?))) (p "Implements al_get_mixer_attached."))
(def (sig (procedure "(mixer-frequency-set! mixer unsigned-integer)" (id mixer-frequency-set!))) (p "Implements al_set_mixer_frequency."))
(def (sig (procedure "(mixer-quality-set! mixer mixer-quality)" (id mixer-quality-set!))) (p "Implements al_set_mixer_quality."))
(def (sig (procedure "(mixer-playing-set! mixer bool)" (id mixer-playing-set!))) (p "Implements al_set_mixer_playing."))
(def (sig (procedure "(mixer-detach! mixer)" (id mixer-detach!))) (p "Implements al_detach_mixer."))
(def (sig (procedure "(make-voice* (unsigned-integer frequency) audio-depth channel-configuration)" (id make-voice*))) (p "Implements al_create_voice."))
(def (sig (procedure "(make-voice (unsigned-integer frequency) audio-depth channel-configuration)" (id make-voice))) (p "Implements al_create_voice, with (free-voice!) declared as a finalizer."))
(def (sig (procedure "(free-voice! voice)" (id free-voice!))) (p "Implements al_destroy_voice."))
(def (sig (procedure "(sample-instance-attach-to-voice! sample-instance voice)" (id sample-instance-attach-to-voice!))) (p "Implements al_attach_sample_instance_to_voice."))
(def (sig (procedure "(audio-stream-attach-to-voice! audio-stram voice)" (id audio-stream-attach-to-voice!))) (p "Implements al_attach_audio_stream_to_voice."))
(def (sig (procedure "(mixer-attach-to-voice! mixer voice)" (id mixer-attach-to-voice!))) (p "Implements al_attach_mixer_to_voice."))
(def (sig (procedure "(voice-detach! voice)" (id voice-detach!))) (p "Implements al_detach_voice."))
(def (sig (procedure "(voice-frequency voice)" (id voice-frequency))) (p "Implements al_get_voice_frequency."))
(def (sig (procedure "(voice-position voice)" (id voice-position))) (p "Implements al_get_voice_position voice)</procedure>"))
(def (sig (procedure "(voice-channels voice)" (id voice-channels))) (p "Implements al_get_voice_channels."))
(def (sig (procedure "(voice-depth voice)" (id voice-depth))) (p "Implements al_get_voice_depth."))
(def (sig (procedure "(voice-playing? voice)" (id voice-playing?))) (p "Implements al_get_voice_playing."))
(def (sig (procedure "(voice-position-set! voice unsigned-integer)" (id voice-position-set!))) (p "Implements al_set_voice_position."))
(def (sig (procedure "(voice-playing-set! voice bool)" (id voice-playing-set!))) (p "Implements al_set_voice_playing."))
(def (sig (procedure "(audio-addon-install)" (id audio-addon-install))) (p "Implements al_install_audio."))
(def (sig (procedure "(audio-addon-uninstall)" (id audio-addon-uninstall))) (p "Implements al_uninstall_audio."))
(def (sig (procedure "(audio-addon-installed?)" (id audio-addon-installed?))) (p "Implements al_is_audio_installed."))
(def (sig (procedure "(audio-addon-version)" (id audio-addon-version))) (p "Implements al_get_allegro_audio_version."))
(def (sig (procedure "(channel-configuration-count channel-configuration)" (id channel-configuration-count))) (p "Implements al_get_channel_count."))
(def (sig (procedure "(audio-depth-size audio-depth)" (id audio-depth-size))) (p "Implements al_get_audio_depth_size."))
(def (sig (procedure "(default-mixer)" (id default-mixer))) (p "Implements al_get_default_mixer."))
(def (sig (procedure "(default-mixer-set! mixer)" (id default-mixer-set!))) (p "Implements al_set_default_mixer."))
(def (sig (procedure "(default-mixer-restore!)" (id default-mixer-restore!))) (p "Implements al_restore_default_mixer."))
(def (sig (procedure "(sample-play sample (float gain) (float pan) (float speed) playmode sample-id)" (id sample-play))) (p "Implements al_play_sample.") (p "The Sample ID is written to the provided sample-id struct."))
(def (sig (procedure "(sample-stop sample-id)" (id sample-stop))) (p "Implements al_stop_sample."))
(def (sig (procedure "(reserve-samples integer)" (id reserve-samples))) (p "Implements al_reserve_samples."))
(def (sig (procedure "(stop-all-samples)" (id stop-all-samples))) (p "Implements al_stop_samples."))
(def (sig (procedure "(register-sample-loader (string extension) (function sample ((const string))))" (id register-sample-loader))) (p "Implements al_register_sample_loader."))
(def (sig (procedure "(register-sample-saver (string extension) (function bool ((const c-string) sample)))" (id register-sample-saver))) (p "Implements al_register_sample_saver."))
(def (sig (procedure "(register-audio-stream-loader (string extension) (function audio-stream ((const string) size_t unsigned-integer32)))" (id register-audio-stream-loader))) (p "Implements al_register_audio_stream_loader."))
(def (sig (procedure "(register-sample-file-loader (string extension) (function sample (file)))" (id register-sample-file-loader))) (p "Implements al_register_sample_loader_f."))
(def (sig (procedure "(register-sample-file-saver (string extension) (function bool (file sample)))" (id register-sample-file-saver))) (p "Implements al_register_sample_saver_f."))
(def (sig (procedure "(register-audio-stream-file-loader (string extension) (function audio-stream (file size_t unsigned-integer)))" (id register-audio-stream-file-loader))) (p "Implements al_register_audio_stream_loader_f."))
(def (sig (procedure "(load-sample* string)" (id load-sample*))) (p "Implements al_load_sample."))
(def (sig (procedure "(load-sample string)" (id load-sample))) (p "Implements al_load_sample, with (free-sample!) declared as a finalizer."))
(def (sig (procedure "(load-audio-stream* string (integer buffer-count) (unsigned-integer samples))" (id load-audio-stream*))) (p "Implements al_load_audio_stream."))
(def (sig (procedure "(load-audio-stream string (integer buffer-count) (unsigned-integer samples))" (id load-audio-stream))) (p "Implements al_load_audio_stream, with (free-audio-stream!) declared as a finalizer."))
(def (sig (procedure "(load-audio-stream-from-file* file (string identity) (integer buffer-count) (unsigned-integer samples))" (id load-audio-stream-from-file*))) (p "Implements al_load_audio_straem_from_file."))
(def (sig (procedure "(load-audio-stream-from-file file (string identity) (integer buffer-count) (unsigned-integer samples))" (id load-audio-stream-from-file))) (p "Implements al_load_audio_straem_from_file, with (free-audio-stream!) declared as a finalizer."))
(def (sig (procedure "(load-sample-from-file* file (string identity))" (id load-sample-from-file*))) (p "Implements al_load_sample_f."))
(def (sig (procedure "(load-sample-from-file file (string identity))" (id load-sample-from-file))) (p "Implements al_load_sample_f, with (free-sample!) declared as a finalizer."))
(def (sig (procedure "(sample-save-to-file sample file (string identity))" (id sample-save-to-file))) (p "Implements al_save_sample_f."))
(def (sig (procedure "(sample-save sample (string filename))" (id sample-save))) (p "Implements al_save_sample."))
(def (sig (procedure "(acodec-addon-init)" (id acodec-addon-init))) (p "Implements al_init_acodec_addon."))
(def (sig (procedure "(acodec-addon-version)" (id acodec-addon-version))) (p "Implements al_get_allegro_acodec_version."))
