From 905475f95481c9f86de21ab97eef12bcac4eb52f Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Sun, 11 Jul 2010 12:35:00 +0200
Subject: [PATCH] Allo (declare (notinline (setf ...))) (A. Gavrilov)

---
 src/cmp/cmpenv-fun.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cmp/cmpenv-fun.lsp b/src/cmp/cmpenv-fun.lsp
index 54cf6008c..679fa17db 100644
--- a/src/cmp/cmpenv-fun.lsp
+++ b/src/cmp/cmpenv-fun.lsp
@@ -133,7 +133,7 @@
                                  collect (cons name t))))
 
 (defun declare-notinline (fname-list &optional (env *cmp-env*))
-  (unless (every #'symbolp fname-list)
+  (unless (every #'si::valid-function-name-p fname-list)
     (cmperr "Not a valid argument to NOTINLINE declaration~%~4I~A"
             fname-list))
   (cmp-env-extend-declaration 'INLINE