Do not ignore inline/not-inline declarations for SETF-functions

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 ***

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