diff --git a/src/cmp/cmpenv-declaim.lsp b/src/cmp/cmpenv-declaim.lsp index 2346335ae..8a519998b 100644 --- a/src/cmp/cmpenv-declaim.lsp +++ b/src/cmp/cmpenv-declaim.lsp @@ -50,3 +50,8 @@ (proclaim ',declarations))) (eval-when (:load-toplevel :execute) (mapc 'proclaim ',declarations)))) + +(defmacro ext::c-declaim (&rest declarations) + `(ext:with-backend + :c/c++ (eval-when (:compile-toplevel) + (c::process-declaim-args ',declarations))))