Changeset 14459

Timestamp:

Nov 25, 2010, 4:27:11 AM (14 years ago)

Author:

Gary Byers

Message:

In DEFNXDECL FTYPE, record the canonical function name (not the
list (SETF x)).

File:

• trunk/source/compiler/nx0.lisp (modified) (1 diff)

trunk/source/compiler/nx0.lisp

@@ -882 +882 @@
           (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)