From 40d5fede522d06183f9712701c86dc6396f5edec Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Tue, 25 May 2010 15:55:53 +0200 Subject: [PATCH] New macro C-DECLAIM for file-local declamations that do not propagate outside the file, not even when loaded. --- src/cmp/cmpenv-declaim.lsp | 5 +++++ 1 file changed, 5 insertions(+) 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))))