From 046533c1006b242041eb3df95e8d91f86c75328e Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@benasque2.(none)>
Date: Mon, 1 Sep 2008 19:50:31 +0200
Subject: [PATCH] Do not ignore inline/not-inline declarations for
 SETF-functions

---
 src/CHANGELOG      | 3 +++
 src/cmp/cmpenv.lsp | 6 +++---
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/CHANGELOG b/src/CHANGELOG
index c186a61d6..535a55c68 100644
--- a/src/CHANGELOG
+++ b/src/CHANGELOG
@@ -76,6 +76,9 @@ ECL 0.9l-p1:
 	(read-from-string "'#.(princ (list '#1=(1 2) '#1#))")
    actually prints the right list (#1=(1 2) #1#).
 
+ - Inline/not-inline declarations for SETF-functions are not ignored (Josh
+   Elsasser).
+
 ;;; Local Variables: ***
 ;;; mode:text ***
 ;;; fill-column:79 ***
diff --git a/src/cmp/cmpenv.lsp b/src/cmp/cmpenv.lsp
index a22180ad7..5cad5fc12 100644
--- a/src/cmp/cmpenv.lsp
+++ b/src/cmp/cmpenv.lsp
@@ -166,7 +166,7 @@
   (not (or ; (compiler-<push-events)
 	;(>= *debug* 2) Breaks compilation of STACK-PUSH-VALUES
 	(member fname *notinline* :test #'same-fname-p)
-	(and (symbolp fname) (get-sysprop fname 'CMP-NOTINLINE)))))
+	(get-sysprop fname 'CMP-NOTINLINE))))
 
 #-:CCL
 (defun proclaim (decl &aux decl-name)
@@ -401,13 +401,13 @@
       (INLINE
        (push decl dl)
        (dolist (fun (cdr decl))
-	 (if (symbolp fun)
+	 (if (si::valid-function-name-p fun)
 	   (setq *notinline* (remove fun *notinline*))
 	   (cmperr "Not a valid function name ~s in declaration ~s" fun decl))))
       (NOTINLINE
        (push decl dl)
        (dolist (fun (cdr decl))
-	 (if (symbolp fun)
+	 (if (si::valid-function-name-p fun)
 	   (push fun *notinline*)
 	   (cmperr "Not a valid function name ~s in declaration ~s" fun decl))))
       (DECLARATION