From bb4b2bc484ed1d827d707a5a50b234d6994af90c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Mon, 24 Jul 2023 00:09:53 -0300 Subject: Add char, color and name transformers --- alien.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'alien.lisp') diff --git a/alien.lisp b/alien.lisp index 3451dc9..5e870ec 100644 --- a/alien.lisp +++ b/alien.lisp @@ -3,10 +3,10 @@ (defmacro call (fname rtype &rest types-n-values) (let ((tlist (queue:new)) (vlist (queue:new))) - (dolist (item types-n-values) - (queue:add tlist (first item)) - (queue:add vlist (second item))) + (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 - (function ,rtype + (sb-alien:function ,rtype ,@(queue:to-list tlist))) ,@(queue:to-list vlist)))) -- cgit v1.2.3