Changeset 8870


Ignore:
Timestamp:
Mar 24, 2008, 11:18:32 AM (11 years ago)
Author:
gb
Message:

NX1-CALL-RESULT-TYPE: if warning about forward-referenced, distinguish
between "0 args" and "unknown args"; don't warn about mismatch in the
latter case.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/nx0.lisp

    r8780 r8870  
    19601960               (neq sym *nx-global-function-name*)
    19611961               (not (functionp (setq global-def (fboundp sym)))))
    1962       (nx1-whine :undefined-function sym args spread-p))
     1962      (if args-p
     1963        (nx1-whine :undefined-function sym args spread-p)
     1964        (nx1-whine :undefined-function sym)))
    19631965    (when (and args-p (setq somedef (or lexenv-def defenv-def global-def)))
    19641966      (multiple-value-bind (deftype reason)
Note: See TracChangeset for help on using the changeset viewer.