From fcdb1b0657cee33bbf99db6dda9bbd5596aa2b89 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Wed, 22 May 2019 11:49:17 +0200 Subject: [PATCH] cmp: c1body: do not error when unknown declaration is encountered it is hinted in the spec, that compiler issues a warning on unknown declarations: http://www.lispworks.com/documentation/HyperSpec/Body/d_declar.htm#declaration also in other parts of compiler code we warn as well. --- src/cmp/cmpenv-declare.lsp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/cmp/cmpenv-declare.lsp b/src/cmp/cmpenv-declare.lsp index 0e58cceba..2996e7392 100644 --- a/src/cmp/cmpenv-declare.lsp +++ b/src/cmp/cmpenv-declare.lsp @@ -113,9 +113,9 @@ and a possible documentation string (only accepted when DOC-P is true)." (if (machine-c-type-p decl-name) (values t decl-name) (valid-type-specifier decl-name)) - (cmpassert ok "Unknown declaration specifier ~s" - decl-name) - (setf types (collect-declared type decl-args types)))))) + (if (null ok) + (cmpwarn "Unknown declaration specifier ~s." decl-name) + (setf types (collect-declared type decl-args types))) )))) finally (return (values body specials types ignored (nreverse others) doc all-declarations)))))