diff options
-rw-r--r-- | cmamut.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/cmamut.lisp b/cmamut.lisp index 4f90a37..b0f7144 100644 --- a/cmamut.lisp +++ b/cmamut.lisp @@ -6,6 +6,7 @@ (defun get-raw-spec (filename) (sb-ext:run-program "/usr/bin/c2ffi" (list filename "--macro-file" "defines.h" + "--with-macro-defs" "--output" "spec.json")) (sb-ext:run-program "/usr/bin/c2ffi" '("defines.h" "--output" "defines.json")) @@ -14,7 +15,7 @@ (delete-file "spec.json") (delete-file "defines.json") (delete-file "defines.h") - (concatenate `(simple-vector ,(+ (length spec) (length defines))) spec defines))) + (concatenate 'vector defines spec))) ; TODO: Handle different sizes of enum (defun cook-type (raw-type type-associations) |