diff options
Diffstat (limited to 'alsalisp')
-rw-r--r-- | alsalisp/hctl.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/alsalisp/hctl.lisp b/alsalisp/hctl.lisp index af136664..4d82ede8 100644 --- a/alsalisp/hctl.lisp +++ b/alsalisp/hctl.lisp @@ -44,6 +44,12 @@ (princ "hctl open success: " hctl "\n") (setq hctl (ahandle hctl)) (princ "open hctl: " hctl "\n") + (princ "load hctl: " (acall 'hctl_load hctl) "\n") + (princ "first : " (acall 'hctl_first_elem hctl) "\n") + (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 hctl (acall 'hctl_close hctl)) (if (= hctl 0) (princ "hctl close success\n") |