diff options
author | Jaroslav Kysela <perex@perex.cz> | 2003-08-01 18:21:19 +0000 |
---|---|---|
committer | Jaroslav Kysela <perex@perex.cz> | 2003-08-01 18:21:19 +0000 |
commit | 2699f5510bee12c0764ed935e18304945c453cc8 (patch) | |
tree | 526f34c22643e87423b20b7e6b8e5c0aafe3c07a /alsalisp | |
parent | 16647d9c5369f40e53813a6019af511020643bcb (diff) | |
download | alsa-lib-2699f5510bee12c0764ed935e18304945c453cc8.tar.gz |
More alisp changes
Diffstat (limited to 'alsalisp')
-rw-r--r-- | alsalisp/hctl.lisp | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/alsalisp/hctl.lisp b/alsalisp/hctl.lisp index 4d82ede8..bcf4ec0b 100644 --- a/alsalisp/hctl.lisp +++ b/alsalisp/hctl.lisp @@ -49,7 +49,14 @@ (princ "last : " (acall 'hctl_last_elem hctl) "\n") (princ "next (first): " (acall 'hctl_elem_next (acall 'hctl_first_elem hctl)) "\n") (princ "prev (last) : " (acall 'hctl_elem_prev (acall 'hctl_last_elem hctl)) "\n") - (princ "first info : " (acall 'hctl_elem_info (acall 'hctl_first_elem hctl)) "\n") + (setq elem (acall 'hctl_first_elem hctl)) + (while elem + (progn + (setq info (acall 'hctl_elem_info elem)) + (princ info "\n") + (setq elem (acall 'hctl_elem_next elem)) + ) + ) (setq hctl (acall 'hctl_close hctl)) (if (= hctl 0) (princ "hctl close success\n") @@ -66,3 +73,5 @@ (princ "ctl open failed: " ctl "\n") ) ) + +(&stat-memory) |