1(setq snd_card_aliases_array 2 ( 3 ("YMF724" . "YMF744") 4 ("YMF724F" . "YMF744") 5 ("YMF740" . "YMF744") 6 ("YMF740C" . "YMF744") 7 ("YMF754" . "YMF744") 8 ("CMIPCI" . "CMI8338") 9 ("CMI8738" . "CMI8338") 10 ("CMI8738-MC4" . "CMI8738-MC6") 11 ("E-mu APS" . "EMU10K1") 12 ("GUS Max" . "GUS") 13 ("GUS ACE" . "GUS") 14 ("GUS Extreme" . "GUS") 15 ("AMD InterWave" . "GUS") 16 ("Dynasonic 3-D" . "GUS") 17 ("InterWave STB" . "GUS") 18 ) 19) 20 21(defun snd_card_alias (cardname) 22 (setq r (assq cardname snd_card_aliases_array)) 23 (setq r (if (null r) cardname r)) 24 (unsetq r) 25) 26 27(defun snd_card_alias_unset () 28 (unsetq snd_card_aliases_array snd_card_alias) 29) 30