Changeset 12036


Ignore:
Timestamp:
May 12, 2009, 6:17:16 PM (10 years ago)
Author:
gb
Message:

In NX1-FORM: only pass NAME through NX1-FORM if quoted (Avoid an extra
warning if undefined, and let NX1-CALL handle FUNCTION.)

File:
1 edited

Legend:

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

    r12035 r12036  
    11421142    (when name
    11431143      (setq global (eq (%car fn) 'quote)
    1144             result-type (nx1-call-result-type name args spread-p global)
    1145             name (nx1-form fn)))
     1144            result-type (nx1-call-result-type name args spread-p global))
     1145      (if global (setq name (nx1-form fn))))
    11461146    (if name
    11471147      (unless global
Note: See TracChangeset for help on using the changeset viewer.