[CM] openmcl on ppc
Arthur W. Green
awg at panix.com
Thu, 21 Feb 2008 18:07:23 -0500
--Apple-Mail-10--157739572
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;
charset=US-ASCII;
delsp=yes;
format=flowed
On Feb 21, 2008, at 1:14 PM, Bill Schottstaedt wrote:
> hooboy.. I bet the PPC uses "_" after all. A useful experiment would
> be to make this change:
Yes, it apparently does. I got the same error but for a different
function. I went ahead and changed all similar entries in ffi.lisp
(patch1) and sndlib2clm.lisp (patch2), and that took care of it.
However, I guess underscores aren't applied when calling ff
instrument routines, as when executing the fm-violin example:
? (with-sound () (fm-violin 0 1 440 .1))
> Error: Can't resolve foreign symbol "clm_fm_violin0"
> While executing: CCL::RESOLVE-EEP, in process Listener(130).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
Does the x86-64 version of CCL not use underscores? The CCL wiki
manual doesn't mention a difference in the calling convention.
--Apple-Mail-10--157739572
Content-Transfer-Encoding: 7bit
Content-Type: application/octet-stream;
x-unix-mode=0644;
name=patch1
Content-Disposition: attachment;
filename=patch1
472,476c472,476
< (defun reset-audio () (ccl::external-call "mus_reset_audio_c" :void))
< (defun reset-headers () (ccl::external-call "mus_reset_headers_c" :void))
< (defun reset-io () (ccl::external-call "mus_reset_io_c" :void))
< (defun initialize-cmus () (ccl::external-call "initialize_cmus" :void))
< (defun mus-set-rand-seed (seed) (ccl::external-call "mus_set_rand_seed" :signed seed :void))
---
> (defun reset-audio () (ccl::external-call "_mus_reset_audio_c" :void))
> (defun reset-headers () (ccl::external-call "_mus_reset_headers_c" :void))
> (defun reset-io () (ccl::external-call "_mus_reset_io_c" :void))
> (defun initialize-cmus () (ccl::external-call "_initialize_cmus" :void))
> (defun mus-set-rand-seed (seed) (ccl::external-call "_mus_set_rand_seed" :signed seed :void))
482,483c482,483
< (ccl::external-call "clm_sound_maxamp" :address f :signed chans :address p :address (heap-int* times) :signed))))
< (defun clm-random (amp) (ccl::external-call "mus_frandom" :double-float amp :double-float))
---
> (ccl::external-call "_clm_sound_maxamp" :address f :signed chans :address p :address (heap-int* times) :signed))))
> (defun clm-random (amp) (ccl::external-call "_mus_frandom" :double-float amp :double-float))
487c487
< (ccl::external-call "clm_array2file" :address f :address p :signed len :signed srate :signed chans :void))))
---
> (ccl::external-call "_clm_array2file" :address f :address p :signed len :signed srate :signed chans :void))))
490c490
< (ccl::external-call "clm_scale_file" :address f1 :address f2 :double-float scaler :signed frm :signed hdr :signed)))
---
> (ccl::external-call "_clm_scale_file" :address f1 :address f2 :double-float scaler :signed frm :signed hdr :signed)))
494c494
< (ccl::external-call "mus_fft" :address arl :address aim :signed len :signed isign :void))))
---
> (ccl::external-call "_mus_fft" :address arl :address aim :signed len :signed isign :void))))
497c497
< (ccl::external-call "mus_autocorrelate" :address arl :signed len :void)))
---
> (ccl::external-call "_mus_autocorrelate" :address arl :signed len :void)))
501c501
< (ccl::external-call "mus_correlate" :address arl :address aim :signed len :void))))
---
> (ccl::external-call "_mus_correlate" :address arl :address aim :signed len :void))))
505c505
< (ccl::external-call "mus_convolution" :address arl :address aim :signed len :void))))
---
> (ccl::external-call "_mus_convolution" :address arl :address aim :signed len :void))))
509c509
< (ccl::external-call "clm_file2array" :address f :signed chan :signed start :signed samples :address p :signed))))
---
> (ccl::external-call "_clm_file2array" :address f :signed chan :signed start :signed samples :address p :signed))))
512c512
< (ccl::external-call "clm_mix"
---
> (ccl::external-call "_clm_mix"
519c519
< (ccl::external-call "clm_send_snd" :address cmd :signed)))
---
> (ccl::external-call "_clm_send_snd" :address cmd :signed)))
521c521
< (defun clm-start-snd () (ccl::external-call "clm_start_snd" :signed))
---
> (defun clm-start-snd () (ccl::external-call "_clm_start_snd" :signed))
524c524
< (ccl:with-cstrs ((cmd command)) (ccl::external-call "clm_init_x" :address cmd :signed)))
---
> (ccl:with-cstrs ((cmd command)) (ccl::external-call "_clm_init_x" :address cmd :signed)))
528,530c528,530
< (ccl::external-call "clm_receive_snd" :address)))
< (defun clm-close-output-1 () (ccl::external-call "clm_close_output" :signed))
< (defun clm-close-reverb-1 () (ccl::external-call "clm_close_reverb" :signed))
---
> (ccl::external-call "_clm_receive_snd" :address)))
> (defun clm-close-output-1 () (ccl::external-call "_clm_close_output" :signed))
> (defun clm-close-reverb-1 () (ccl::external-call "_clm_close_reverb" :signed))
534c534
< (ccl::external-call "clm_make_output"
---
> (ccl::external-call "_clm_make_output"
540c540
< (ccl::external-call "clm_make_reverb"
---
> (ccl::external-call "_clm_make_reverb"
544c544
< (ccl:with-cstrs ((f1 file)) (ccl::external-call "clm_continue_output" :address f1 :signed)))
---
> (ccl:with-cstrs ((f1 file)) (ccl::external-call "_clm_continue_output" :address f1 :signed)))
546,550c546,550
< (ccl:with-cstrs ((f1 file)) (ccl::external-call "clm_continue_reverb" :address f1 :signed)))
< (defun mus-srate () (ccl::external-call "mus_srate" :double-float))
< (defun mus-set-srate (val) (ccl::external-call "mus_set_srate" :double-float val :double-float))
< (defun mus-file-buffer-size () (ccl::external-call "mus_file_buffer_size" :signed))
< (defun mus-set-file-buffer-size (val) (ccl::external-call "mus_set_file_buffer_size" :signed val :signed))
---
> (ccl:with-cstrs ((f1 file)) (ccl::external-call "_clm_continue_reverb" :address f1 :signed)))
> (defun mus-srate () (ccl::external-call "_mus_srate" :double-float))
> (defun mus-set-srate (val) (ccl::external-call "_mus_set_srate" :double-float val :double-float))
> (defun mus-file-buffer-size () (ccl::external-call "_mus_file_buffer_size" :signed))
> (defun mus-set-file-buffer-size (val) (ccl::external-call "_mus_set_file_buffer_size" :signed val :signed))
--Apple-Mail-10--157739572
Content-Transfer-Encoding: 7bit
Content-Type: application/octet-stream;
x-unix-mode=0644;
name=patch2
Content-Disposition: attachment;
filename=patch2
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))
--Apple-Mail-10--157739572
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;
charset=US-ASCII;
format=flowed
--Apple-Mail-10--157739572--