From b2a1abf7bd1404bc1fbf9ebbff2f3d8bc1551947 Mon Sep 17 00:00:00 2001 From: Jaroslav Kysela Date: Sat, 13 Dec 2003 18:39:18 +0000 Subject: [PATCH] Removed set variable (elem) --- alsalisp/hctl.lisp | 1 + 1 file changed, 1 insertion(+) 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") -- 2.47.1