From be2136dca2f82e0a701425567e163e553c429887 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 2 Jun 2012 09:50:20 +0200 Subject: [PATCH] Changed error message for c-inline --- src/cmp/cmpffi.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cmp/cmpffi.lsp b/src/cmp/cmpffi.lsp index 2991c8356..7dd13f0d1 100755 --- a/src/cmp/cmpffi.lsp +++ b/src/cmp/cmpffi.lsp @@ -507,8 +507,8 @@ (unless (and (listp arguments) (listp arg-types) (stringp c-expression)) - (cmperr "C-INLINE: wrong type of arguments ~S" - arguments arg-types c-expression)) + (cmperr "C-INLINE: syntax error in ~S" + (list* 'c-inline args))) (do ((processed-arguments '()) (processed-arg-types '())) ((and (endp arguments) (endp arg-types))