Removed set variable (elem)

diff --git a/alsalisp/hctl.lisp b/alsalisp/hctl.lisp
index 488d71f2dbb32bae5097a3cff28024fd99b6c692..504050f60af6e28f5eba16adf266a7f8b2572625 100644 (file)
--- 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")