Index: /trunk/source/compiler/nx0.lisp
===================================================================
--- /trunk/source/compiler/nx0.lisp	(revision 14458)
+++ /trunk/source/compiler/nx0.lisp	(revision 14459)
@@ -882,7 +882,8 @@
           (nx-bad-decls decl)
           (dolist (s fnames)
-            (if (or (symbolp s) (setf-function-name-p s))
-              (nx-new-fdecl pending s 'ftype type)
-              (unless (shiftf whined t) (nx-bad-decls decl)))))))))
+            (multiple-value-bind (valid nm) (valid-function-name-p s)
+            (if valid
+              (nx-new-fdecl pending nm 'ftype type)
+              (unless (shiftf whined t) (nx-bad-decls decl))))))))))
 
 (defnxdecl settable (pending decl env)