18c18 < #+openmcl (defun mus-error-type->string (err) (get-cstring (ccl::external-call "mus_error_type_to_string" :signed err :address))) --- > #+openmcl (defun mus-error-type->string (err) (get-cstring (ccl::external-call "_mus_error_type_to_string" :signed err :address))) 25c25 < #+openmcl (defun mus-sound-samples (file) (ccl:with-cstrs ((f file)) (ccl::external-call "mus_sound_samples" :address f (:signed 64)))) --- > #+openmcl (defun mus-sound-samples (file) (ccl:with-cstrs ((f file)) (ccl::external-call "_mus_sound_samples" :address f (:signed 64)))) 32c32 < #+openmcl (defun mus-sound-frames (file) (ccl:with-cstrs ((f file)) (ccl::external-call "mus_sound_frames" :address f (:signed 64)))) --- > #+openmcl (defun mus-sound-frames (file) (ccl:with-cstrs ((f file)) (ccl::external-call "_mus_sound_frames" :address f (:signed 64)))) 39c39 < #+openmcl (defun mus-sound-datum-size (file) (ccl:with-cstrs ((f file)) (ccl::external-call "mus_sound_datum_size" :address f :signed))) --- > #+openmcl (defun mus-sound-datum-size (file) (ccl:with-cstrs ((f file)) (ccl::external-call "_mus_sound_datum_size" :address f :signed))) 46c46 < #+openmcl (defun mus-sound-data-location (file) (ccl:with-cstrs ((f file)) (ccl::external-call "mus_sound_data_location" :address f (:signed 64)))) --- > #+openmcl (defun mus-sound-data-location (file) (ccl:with-cstrs ((f file)) (ccl::external-call "_mus_sound_data_location" :address f (:signed 64)))) 53c53 < #+openmcl (defun mus-sound-chans (file) (ccl:with-cstrs ((f file)) (ccl::external-call "mus_sound_chans" :address f :signed))) --- > #+openmcl (defun mus-sound-chans (file) (ccl:with-cstrs ((f file)) (ccl::external-call "_mus_sound_chans" :address f :signed))) 60c60 < #+openmcl (defun mus-sound-srate (file) (ccl:with-cstrs ((f file)) (ccl::external-call "mus_sound_srate" :address f :signed))) --- > #+openmcl (defun mus-sound-srate (file) (ccl:with-cstrs ((f file)) (ccl::external-call "_mus_sound_srate" :address f :signed))) 67c67 < #+openmcl (defun mus-sound-header-type (file) (ccl:with-cstrs ((f file)) (ccl::external-call "mus_sound_header_type" :address f :signed))) --- > #+openmcl (defun mus-sound-header-type (file) (ccl:with-cstrs ((f file)) (ccl::external-call "_mus_sound_header_type" :address f :signed))) 74c74 < #+openmcl (defun mus-sound-data-format (file) (ccl:with-cstrs ((f file)) (ccl::external-call "mus_sound_data_format" :address f :signed))) --- > #+openmcl (defun mus-sound-data-format (file) (ccl:with-cstrs ((f file)) (ccl::external-call "_mus_sound_data_format" :address f :signed))) 81c81 < #+openmcl (defun mus-sound-original-format (file) (ccl:with-cstrs ((f file)) (ccl::external-call "mus_sound_original_format" :address f :signed))) --- > #+openmcl (defun mus-sound-original-format (file) (ccl:with-cstrs ((f file)) (ccl::external-call "_mus_sound_original_format" :address f :signed))) 88c88 < #+openmcl (defun mus-sound-write-date (file) (ccl:with-cstrs ((f file)) (ccl::external-call "mus_sound_write_date" :address f :signed))) --- > #+openmcl (defun mus-sound-write-date (file) (ccl:with-cstrs ((f file)) (ccl::external-call "_mus_sound_write_date" :address f :signed))) 95c95 < #+openmcl (defun mus-sound-comment-start (file) (ccl:with-cstrs ((f file)) (ccl::external-call "mus_sound_comment_start" :address f :signed))) --- > #+openmcl (defun mus-sound-comment-start (file) (ccl:with-cstrs ((f file)) (ccl::external-call "_mus_sound_comment_start" :address f :signed))) 102c102 < #+openmcl (defun mus-sound-comment-end (file) (ccl:with-cstrs ((f file)) (ccl::external-call "mus_sound_comment_end" :address f :signed))) --- > #+openmcl (defun mus-sound-comment-end (file) (ccl:with-cstrs ((f file)) (ccl::external-call "_mus_sound_comment_end" :address f :signed))) 109c109 < #+openmcl (defun mus-sound-length (file) (ccl:with-cstrs ((f file)) (ccl::external-call "mus_sound_length" :address f (:signed 64)))) --- > #+openmcl (defun mus-sound-length (file) (ccl:with-cstrs ((f file)) (ccl::external-call "_mus_sound_length" :address f (:signed 64)))) 116c116 < #+openmcl (defun mus-sound-type-specifier (file) (ccl:with-cstrs ((f file)) (ccl::external-call "mus_sound_type_specifier" :address f :signed))) --- > #+openmcl (defun mus-sound-type-specifier (file) (ccl:with-cstrs ((f file)) (ccl::external-call "_mus_sound_type_specifier" :address f :signed))) 123c123 < #+openmcl (defun mus-sound-bits-per-sample (file) (ccl:with-cstrs ((f file)) (ccl::external-call "mus_sound_bits_per_sample" :address f :signed))) --- > #+openmcl (defun mus-sound-bits-per-sample (file) (ccl:with-cstrs ((f file)) (ccl::external-call "_mus_sound_bits_per_sample" :address f :signed))) 131c131 < #+openmcl (defun mus-header-type-name (typ) (get-cstring (ccl::external-call "mus_header_type_name" :signed typ :address))) --- > #+openmcl (defun mus-header-type-name (typ) (get-cstring (ccl::external-call "_mus_header_type_name" :signed typ :address))) 139c139 < #+openmcl (defun mus-data-format-name (typ) (get-cstring (ccl::external-call "mus_data_format_name" :signed typ :address))) --- > #+openmcl (defun mus-data-format-name (typ) (get-cstring (ccl::external-call "_mus_data_format_name" :signed typ :address))) 148c148 < #+openmcl (defun mus-sound-comment-1 (file) (ccl:with-cstrs ((f file)) (get-cstring (ccl::external-call "mus_sound_comment" :address f :address)))) --- > #+openmcl (defun mus-sound-comment-1 (file) (ccl:with-cstrs ((f file)) (get-cstring (ccl::external-call "_mus_sound_comment" :address f :address)))) 156c156 < #+openmcl (defun mus-sound-duration (file) (ccl:with-cstrs ((f file)) (ccl::external-call "mus_sound_duration" :address f :single-float))) --- > #+openmcl (defun mus-sound-duration (file) (ccl:with-cstrs ((f file)) (ccl::external-call "_mus_sound_duration" :address f :single-float))) 163c163 < #+openmcl (defun mus-sound-initialize () (ccl::external-call "mus_sound_initialize" :signed)) --- > #+openmcl (defun mus-sound-initialize () (ccl::external-call "_mus_sound_initialize" :signed)) 170c170 < #+openmcl (defun mus-sound-forget (file) (ccl:with-cstrs ((f file)) (ccl::external-call "mus_sound_forget" :address f :signed))) --- > #+openmcl (defun mus-sound-forget (file) (ccl:with-cstrs ((f file)) (ccl::external-call "_mus_sound_forget" :address f :signed))) 177c177 < #+openmcl (defun mus-audio-describe () (ccl::external-call "mus_audio_describe" :void)) --- > #+openmcl (defun mus-audio-describe () (ccl::external-call "_mus_audio_describe" :void)) 185c185 < #+openmcl (defun mus-audio-report () (get-cstring (ccl::external-call "mus_audio_report" :address))) --- > #+openmcl (defun mus-audio-report () (get-cstring (ccl::external-call "_mus_audio_report" :address))) 203c203 < (ccl::external-call "clm_audio_mixer_read" :signed dev :signed field :signed chan :address p :signed len :signed))) --- > (ccl::external-call "_clm_audio_mixer_read" :signed dev :signed field :signed chan :address p :signed len :signed))) 218c218 < (ccl::external-call "clm_audio_mixer_write" :signed dev :signed field :signed chan :address p :signed len :signed))) --- > (ccl::external-call "_clm_audio_mixer_write" :signed dev :signed field :signed chan :address p :signed len :signed))) 225c225 < #+openmcl (defun mus-audio-initialize () (ccl::external-call "mus_audio_initialize" :signed)) --- > #+openmcl (defun mus-audio-initialize () (ccl::external-call "_mus_audio_initialize" :signed)) 232c232 < #+openmcl (defun mus-audio-systems () (ccl::external-call "mus_audio_systems" :signed)) --- > #+openmcl (defun mus-audio-systems () (ccl::external-call "_mus_audio_systems" :signed)) 240c240 < #+openmcl (defun mus-audio-system-name (sys) (get-cstring (ccl::external-call "mus_audio_system_name" :signed sys :address))) --- > #+openmcl (defun mus-audio-system-name (sys) (get-cstring (ccl::external-call "_mus_audio_system_name" :signed sys :address))) 248c248 < #+openmcl (defun mus-audio-moniker () (get-cstring (ccl::external-call "mus_audio_moniker" :address))) --- > #+openmcl (defun mus-audio-moniker () (get-cstring (ccl::external-call "_mus_audio_moniker" :address))) 255c255 < #+openmcl (defun mus-file-probe (file) (ccl:with-cstrs ((f file)) (ccl::external-call "mus_file_probe" :address f :signed))) --- > #+openmcl (defun mus-file-probe (file) (ccl:with-cstrs ((f file)) (ccl::external-call "_mus_file_probe" :address f :signed))) 262c262 < #+openmcl (defun mus-set-clipping (on) (ccl::external-call "mus_set_clipping" :signed on :signed)) --- > #+openmcl (defun mus-set-clipping (on) (ccl::external-call "_mus_set_clipping" :signed on :signed)) 269c269 < #+openmcl (defun mus-clipping () (ccl::external-call "mus_clipping" :signed)) --- > #+openmcl (defun mus-clipping () (ccl::external-call "_mus_clipping" :signed)) 276c276 < #+openmcl (defun mus-prescaler () (ccl::external-call "mus_prescaler" :double-float)) --- > #+openmcl (defun mus-prescaler () (ccl::external-call "_mus_prescaler" :double-float)) 283c283 < #+openmcl (defun mus-set-prescaler (val) (ccl::external-call "mus_set_prescaler" :double-float val :single-float)) --- > #+openmcl (defun mus-set-prescaler (val) (ccl::external-call "_mus_set_prescaler" :double-float val :single-float)) 290c290 < #+openmcl (defun mus-header-samples () (ccl::external-call "mus_header_samples" (:signed 64))) --- > #+openmcl (defun mus-header-samples () (ccl::external-call "_mus_header_samples" (:signed 64))) 297c297 < #+openmcl (defun mus-header-data-location () (ccl::external-call "mus_header_data_location" (:signed 64))) --- > #+openmcl (defun mus-header-data-location () (ccl::external-call "_mus_header_data_location" (:signed 64))) 304c304 < #+openmcl (defun mus-header-chans () (ccl::external-call "mus_header_chans" :signed)) --- > #+openmcl (defun mus-header-chans () (ccl::external-call "_mus_header_chans" :signed)) 311c311 < #+openmcl (defun mus-header-srate () (ccl::external-call "mus_header_srate" :signed)) --- > #+openmcl (defun mus-header-srate () (ccl::external-call "_mus_header_srate" :signed)) 318c318 < #+openmcl (defun mus-header-type () (ccl::external-call "mus_header_type" :signed)) --- > #+openmcl (defun mus-header-type () (ccl::external-call "_mus_header_type" :signed)) 325c325 < #+openmcl (defun mus-header-format () (ccl::external-call "mus_header_format" :signed)) --- > #+openmcl (defun mus-header-format () (ccl::external-call "_mus_header_format" :signed)) 332c332 < #+openmcl (defun mus-header-comment-start () (ccl::external-call "mus_header_comment_start" :signed)) --- > #+openmcl (defun mus-header-comment-start () (ccl::external-call "_mus_header_comment_start" :signed)) 339c339 < #+openmcl (defun mus-header-comment-end () (ccl::external-call "mus_header_comment_end" :signed)) --- > #+openmcl (defun mus-header-comment-end () (ccl::external-call "_mus_header_comment_end" :signed)) 346c346 < #+openmcl (defun mus-header-type-specifier () (ccl::external-call "mus_header_type_specifier" :signed)) --- > #+openmcl (defun mus-header-type-specifier () (ccl::external-call "_mus_header_type_specifier" :signed)) 353c353 < #+openmcl (defun mus-header-bits-per-sample () (ccl::external-call "mus_header_bits_per_sample" :signed)) --- > #+openmcl (defun mus-header-bits-per-sample () (ccl::external-call "_mus_header_bits_per_sample" :signed)) 360c360 < #+openmcl (defun mus-header-loop-mode (w) (ccl::external-call "mus_header_loop_mode" :signed w :signed)) --- > #+openmcl (defun mus-header-loop-mode (w) (ccl::external-call "_mus_header_loop_mode" :signed w :signed)) 367c367 < #+openmcl (defun mus-header-loop-start (w) (ccl::external-call "mus_header_loop_start" :signed w :signed)) --- > #+openmcl (defun mus-header-loop-start (w) (ccl::external-call "_mus_header_loop_start" :signed w :signed)) 374c374 < #+openmcl (defun mus-header-loop-end (w) (ccl::external-call "mus_header_loop_end" :signed w :signed)) --- > #+openmcl (defun mus-header-loop-end (w) (ccl::external-call "_mus_header_loop_end" :signed w :signed)) 381c381 < #+openmcl (defun mus-header-mark-position (w) (ccl::external-call "mus_header_mark_position" :signed w :signed)) --- > #+openmcl (defun mus-header-mark-position (w) (ccl::external-call "_mus_header_mark_position" :signed w :signed)) 388c388 < #+openmcl (defun mus-header-base-note () (ccl::external-call "mus_header_base_note" :signed)) --- > #+openmcl (defun mus-header-base-note () (ccl::external-call "_mus_header_base_note" :signed)) 395c395 < #+openmcl (defun mus-header-base-detune () (ccl::external-call "mus_header_base_detune" :signed)) --- > #+openmcl (defun mus-header-base-detune () (ccl::external-call "_mus_header_base_detune" :signed)) 403c403 < (ccl::external-call "mus_header_set_raw_defaults" :signed sr :signed chn :signed frm :void)) --- > (ccl::external-call "_mus_header_set_raw_defaults" :signed sr :signed chn :signed frm :void)) 410c410 < #+openmcl (defun mus-header-true-length () (ccl::external-call "mus_header_true_length" (:signed 64))) --- > #+openmcl (defun mus-header-true-length () (ccl::external-call "_mus_header_true_length" (:signed 64))) 417c417 < #+openmcl (defun mus-header-original-format () (ccl::external-call "mus_header_original_format" :signed)) --- > #+openmcl (defun mus-header-original-format () (ccl::external-call "_mus_header_original_format" :signed)) 424c424 < #+openmcl (defun mus-samples-to-bytes (frm siz) (ccl::external-call "mus_samples_to_bytes" :signed frm (:signed 64) siz (:signed 64))) --- > #+openmcl (defun mus-samples-to-bytes (frm siz) (ccl::external-call "_mus_samples_to_bytes" :signed frm (:signed 64) siz (:signed 64))) 431c431 < #+openmcl (defun mus-bytes-to-samples (frm siz) (ccl::external-call "mus_bytes_to_samples" :signed frm (:signed 64) siz (:signed 64))) --- > #+openmcl (defun mus-bytes-to-samples (frm siz) (ccl::external-call "_mus_bytes_to_samples" :signed frm (:signed 64) siz (:signed 64))) 438c438 < #+openmcl (defun mus-header-read (name) (ccl:with-cstrs ((f name)) (ccl::external-call "mus_header_read" :address f :signed))) --- > #+openmcl (defun mus-header-read (name) (ccl:with-cstrs ((f name)) (ccl::external-call "_mus_header_read" :address f :signed))) 458c458 < (ccl::external-call "mus_header_write" :address f :signed type :signed srate :signed chans --- > (ccl::external-call "_mus_header_write" :address f :signed type :signed srate :signed chans 467c467 < #+openmcl (defun mus-header-aux-comment-start (n) (ccl::external-call "mus_header_aux_comment_start" :signed n (:signed 64))) --- > #+openmcl (defun mus-header-aux-comment-start (n) (ccl::external-call "_mus_header_aux_comment_start" :signed n (:signed 64))) 474c474 < #+openmcl (defun mus-header-aux-comment-end (n) (ccl::external-call "mus_header_aux_comment_end" :signed n (:signed 64))) --- > #+openmcl (defun mus-header-aux-comment-end (n) (ccl::external-call "_mus_header_aux_comment_end" :signed n (:signed 64))) 481c481 < #+openmcl (defun mus-header-initialize () (ccl::external-call "mus_header_initialize" :signed)) --- > #+openmcl (defun mus-header-initialize () (ccl::external-call "_mus_header_initialize" :signed)) 488c488 < #+openmcl (defun mus-header-writable (typ frm) (ccl::external-call "mus_header_writable" :signed typ :signed frm :signed)) --- > #+openmcl (defun mus-header-writable (typ frm) (ccl::external-call "_mus_header_writable" :signed typ :signed frm :signed)) 495c495 < #+openmcl (defun mus-header-sf2-entries () (ccl::external-call "mus_header_sf2_entries" :signed)) --- > #+openmcl (defun mus-header-sf2-entries () (ccl::external-call "_mus_header_sf2_entries" :signed)) 503c503 < #+openmcl (defun mus-header-sf2-name (n) (get-cstring (ccl::external-call "mus_header_sf2_name" :signed n :address))) --- > #+openmcl (defun mus-header-sf2-name (n) (get-cstring (ccl::external-call "_mus_header_sf2_name" :signed n :address))) 510c510 < #+openmcl (defun mus-header-sf2-start (n) (ccl::external-call "mus_header_sf2_start" :signed n :signed)) --- > #+openmcl (defun mus-header-sf2-start (n) (ccl::external-call "_mus_header_sf2_start" :signed n :signed)) 517c517 < #+openmcl (defun mus-header-sf2-end (n) (ccl::external-call "mus_header_sf2_end" :signed n :signed)) --- > #+openmcl (defun mus-header-sf2-end (n) (ccl::external-call "_mus_header_sf2_end" :signed n :signed)) 524c524 < #+openmcl (defun mus-header-sf2-loop-start (n) (ccl::external-call "mus_header_sf2_loop_start" :signed n :signed)) --- > #+openmcl (defun mus-header-sf2-loop-start (n) (ccl::external-call "_mus_header_sf2_loop_start" :signed n :signed)) 531c531 < #+openmcl (defun mus-header-sf2-loop-end (n) (ccl::external-call "mus_header_sf2_loop_end" :signed n :signed)) --- > #+openmcl (defun mus-header-sf2-loop-end (n) (ccl::external-call "_mus_header_sf2_loop_end" :signed n :signed)) 543c543 < (get-cstring (ccl::external-call "mus_header_original_format_name" :signed format :signed type :address))) --- > (get-cstring (ccl::external-call "_mus_header_original_format_name" :signed format :signed type :address))) 550c550 < #+openmcl (defun mus-bytes-per-sample (format) (ccl::external-call "mus_bytes_per_sample" :signed format :signed)) --- > #+openmcl (defun mus-bytes-per-sample (format) (ccl::external-call "_mus_bytes_per_sample" :signed format :signed))