diff options
| -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))) |