diff options
| author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2023-02-04 10:36:31 -0300 |
|---|---|---|
| committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2023-02-04 10:36:31 -0300 |
| commit | d4233b573d81bf659e0ecf6003de8855d9521110 (patch) | |
| tree | 0404c167c0e404183282157d679a02f3a1d3a733 | |
| parent | 62ad9729952a053ec687649f6d82aae21a3da793 (diff) | |
| download | cmamut-d4233b573d81bf659e0ecf6003de8855d9521110.tar.gz cmamut-d4233b573d81bf659e0ecf6003de8855d9521110.zip | |
Fix function signatures not having parameter names
| -rw-r--r-- | cmamut.lisp | 4 |
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))) |