diff options
| author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2023-03-12 05:04:52 -0300 |
|---|---|---|
| committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2023-03-12 05:04:52 -0300 |
| commit | 4a721bc7ae71489d261a037a6b04d0df00419f89 (patch) | |
| tree | 14a9901b7fb728c2222ef4abbe1d9e113a08dbe8 | |
| parent | 85e222e9699855668e1157f31e3938ebeffec088 (diff) | |
| download | cmamut-4a721bc7ae71489d261a037a6b04d0df00419f89.tar.gz cmamut-4a721bc7ae71489d261a037a6b04d0df00419f89.zip | |
Fix constants not being generated
| -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) |