From d4233b573d81bf659e0ecf6003de8855d9521110 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Sat, 4 Feb 2023 10:36:31 -0300 Subject: Fix function signatures not having parameter names --- cmamut.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'cmamut.lisp') diff --git a/cmamut.lisp b/cmamut.lisp index 7076936..0c5ca0d 100644 --- a/cmamut.lisp +++ b/cmamut.lisp @@ -73,7 +73,9 @@ (cooked-params (queue:new))) (dotimes (j (length raw-params)) (queue:add cooked-params - (list (intern (gethash "name" (aref raw-params j))) + (list (if (string= (gethash "name" (aref raw-params j)) "") + (gensym) + (intern (gethash "name" (aref raw-params j)))) (cook-type (gethash "type" (aref raw-params j)) type-associations)))) `(sb-alien:define-alien-routine ,(let ((function-name (gethash "name" raw-function))) -- cgit v1.2.3