diff options
| author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2025-06-23 02:23:36 -0300 |
|---|---|---|
| committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2025-06-23 02:23:36 -0300 |
| commit | 97f8b6d2a990fe2e93704460fcdf08701616d7e4 (patch) | |
| tree | dec4638301655b0f6a7dea9ed8765a02f1eb94e2 /alien.lisp | |
| parent | bb4b2bc484ed1d827d707a5a50b234d6994af90c (diff) | |
| download | utils-97f8b6d2a990fe2e93704460fcdf08701616d7e4.tar.gz utils-97f8b6d2a990fe2e93704460fcdf08701616d7e4.zip | |
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)))) |