Changeset 15352


Ignore:
Timestamp:
May 5, 2012, 4:21:55 AM (7 years ago)
Author:
gb
Message:

In NX1-COMBINATION, don't run alphatizer if calling a function with
the wrong number of args (warn, err at runtime.)

File:
1 edited

Legend:

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

    r15349 r15352  
    18051805  (destructuring-bind (sym &rest args) form
    18061806    (if (symbolp sym)
    1807       (let* ((*nx-sfname* sym) special)
    1808         (if (and (setq special (gethash sym *nx1-alphatizers*))
     1807      (let* ((*nx-sfname* sym)
     1808             (special (gethash sym *nx1-alphatizers*))
     1809             (def (fboundp sym)))
     1810        (if (and special
    18091811                 (not (nx-lexical-finfo sym env))
    18101812                 (or (special-operator-p sym)
    1811                      (not (nx-declared-notinline-p sym env))))
     1813                     (not (nx-declared-notinline-p sym env)))
     1814                 (or (not (functionp def))
     1815                     (null (nx1-check-call-args def (cdr form) nil))))
    18121816          (funcall special context form env) ; pass environment arg ...
    18131817          (progn           
Note: See TracChangeset for help on using the changeset viewer.