Changeset 8860


Ignore:
Timestamp:
Mar 22, 2008, 4:50:17 AM (11 years ago)
Author:
gb
Message:

Use ! check-min-max-args in another case.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/x862.lisp

    r8753 r8860  
    55305530                ;; received.  If there's an upper bound, enforce it.
    55315531               
    5532                 (when rev-fixed
    5533                   (x862-reserve-vstack-lcells num-fixed)                   
    5534                   (! check-min-nargs num-fixed))
    5535                 (when max-args
    5536                   (! check-max-nargs max-args))
     5532                (cond (rev-fixed
     5533                       (x862-reserve-vstack-lcells num-fixed)
     5534                       (if max-args
     5535                         (! check-min-max-nargs num-fixed max-args)
     5536                         (! check-min-nargs num-fixed)))
     5537                      (max-args
     5538                       (! check-max-nargs max-args)))
    55375539                (if (not (or rest keys))
    55385540                  (if (<= (+ num-fixed num-opt) $numx8664argregs)
Note: See TracChangeset for help on using the changeset viewer.