From: Jaroslav Kysela <perex@perex.cz>
Date: Sat, 13 Dec 2003 18:39:18 +0000 (+0000)
Subject: Removed set variable (elem)
X-Git-Tag: v1.0.3~64
X-Git-Url: https://git.alsa-project.org/?a=commitdiff_plain;h=b2a1abf7bd1404bc1fbf9ebbff2f3d8bc1551947;p=alsa-lib.git

Removed set variable (elem)
---

diff --git a/alsalisp/hctl.lisp b/alsalisp/hctl.lisp
index 488d71f2..504050f6 100644
--- a/alsalisp/hctl.lisp
+++ b/alsalisp/hctl.lisp
@@ -67,6 +67,7 @@
 	    (setq elem (Acall 'hctl_elem_next elem))
 	  )
         )
+	(unsetq elem)
         (setq hctl (Acall 'hctl_close hctl))
         (if (= hctl 0)
           (princ "hctl close success\n")