summaryrefslogtreecommitdiff
path: root/cmamut.lisp
diff options
context:
space:
mode:
authorJuan Manuel Tomás <jtomas1815@gmail.com>2023-02-04 10:36:31 -0300
committerJuan Manuel Tomás <jtomas1815@gmail.com>2023-02-04 10:36:31 -0300
commitd4233b573d81bf659e0ecf6003de8855d9521110 (patch)
tree0404c167c0e404183282157d679a02f3a1d3a733 /cmamut.lisp
parent62ad9729952a053ec687649f6d82aae21a3da793 (diff)
downloadcmamut-d4233b573d81bf659e0ecf6003de8855d9521110.tar.gz
cmamut-d4233b573d81bf659e0ecf6003de8855d9521110.zip
Fix function signatures not having parameter names
Diffstat (limited to 'cmamut.lisp')
-rw-r--r--cmamut.lisp4
1 files changed, 3 insertions, 1 deletions
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)))