From 4a721bc7ae71489d261a037a6b04d0df00419f89 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Sun, 12 Mar 2023 05:04:52 -0300 Subject: Fix constants not being generated --- cmamut.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'cmamut.lisp') 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) -- cgit v1.2.3