diff options
Diffstat (limited to 'alien.lisp')
| -rw-r--r-- | alien.lisp | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/alien.lisp b/alien.lisp deleted file mode 100644 index 5e870ec..0000000 --- a/alien.lisp +++ /dev/null @@ -1,12 +0,0 @@ -(in-package #:alien) - -(defmacro call (fname rtype &rest types-n-values) - (let ((tlist (queue:new)) - (vlist (queue:new))) - (do () ((null types-n-values) nil) - (queue:add tlist (pop types-n-values)) - (queue:add vlist (pop types-n-values))) - `(alien-funcall (extern-alien ,fname - (sb-alien:function ,rtype - ,@(queue:to-list tlist))) - ,@(queue:to-list vlist)))) |