From 97f8b6d2a990fe2e93704460fcdf08701616d7e4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Mon, 23 Jun 2025 02:23:36 -0300 Subject: Update utils --- alien.lisp | 12 ------------ 1 file changed, 12 deletions(-) delete mode 100644 alien.lisp (limited to 'alien.lisp') 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)))) -- cgit v1.2.3