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