From e4aa8f5df09f0aee46102925b4efcd66ffccc3f0 Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Tue, 11 Jan 2005 17:43:34 +0000 Subject: [PATCH] Allow (SETF ...) function names to appear in proclamations --- src/cmp/cmpenv.lsp | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/cmp/cmpenv.lsp b/src/cmp/cmpenv.lsp index 1f2595d92..6718c7b3a 100644 --- a/src/cmp/cmpenv.lsp +++ b/src/cmp/cmpenv.lsp @@ -206,19 +206,19 @@ (t (cmpwarn "Bad function proclamation ~a" decl))))) (INLINE (dolist (fun (cdr decl)) - (if (symbolp fun) - (rem-sysprop fun 'CMP-NOTINLINE) - (warn "The function name ~s is not a symbol." fun)))) + (if (si::valid-function-name-p fun) + (rem-sysprop fun 'CMP-NOTINLINE) + (warn "Not a valid function name ~s" fun)))) (NOTINLINE (dolist (fun (cdr decl)) - (if (symbolp fun) - (put-sysprop fun 'CMP-NOTINLINE t) - (warn "The function name ~s is not a symbol." fun)))) + (if (si::valid-function-name-p fun) + (put-sysprop fun 'CMP-NOTINLINE t) + (warn "Not a valid function name ~s" fun)))) ((OBJECT IGNORE DYNAMIC-EXTENT IGNORABLE) ;; FIXME! IGNORED! (dolist (var (cdr decl)) - (unless (symbolp var) - (warn "The variable name ~s is not a symbol." var)))) + (unless (si:.valid-function-name-p var) + (warn "Not a valid function name ~s" fun)))) (DECLARATION (dolist (x (cdr decl)) (if (symbolp x)