Remove not needed functions after open phase.

src/conf/cards/aliases.alisp

@@ -23,3 +23,7 @@
   (setq r (if (null r) cardname r))
   (unsetq r)
 )
+
+(defun snd_card_alias_unset ()
+  (unsetq snd_card_aliases_array snd_card_alias)
+)

src/conf/sndo-mixer.alisp

@@ -108,6 +108,7 @@
 (defun sndo_mixer_close nil
   (sndo_mixer_close1 (nth 1 hctls) "c")
   (sndo_mixer_close1 (nth 0 hctls) "p")
+  (snd_card_alias_unset)
   (unsetq hctls)
 )
 

src/ordinary_mixer/ordinary_mixer.c

@@ -3,7 +3,7 @@
  * \ingroup Mixer_ordinary
  * \brief Ordinary mixer interface
  * \author Jaroslav Kysela <perex@suse.cz>
- * \date 2003
+ * \date 2003,2004
  *
  * Ordinary mixer interface is a high level abtraction for soundcard's
  * mixing.