Changeset 14459


Ignore:
Timestamp:
Nov 25, 2010, 12:27:11 PM (8 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx0.lisp

    r14418 r14459  
    882882          (nx-bad-decls decl)
    883883          (dolist (s fnames)
    884             (if (or (symbolp s) (setf-function-name-p s))
    885               (nx-new-fdecl pending s 'ftype type)
    886               (unless (shiftf whined t) (nx-bad-decls decl)))))))))
     884            (multiple-value-bind (valid nm) (valid-function-name-p s)
     885            (if valid
     886              (nx-new-fdecl pending nm 'ftype type)
     887              (unless (shiftf whined t) (nx-bad-decls decl))))))))))
    887888
    888889(defnxdecl settable (pending decl env)
Note: See TracChangeset for help on using the changeset viewer.