Changeset 11601


Ignore:
Timestamp:
01/29/09 20:10:44 (13 years ago)
Author:
ehuelsmann
Message:

Only compile one or the other argument to an :int.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r11600 r11601  
    68616861        (compile-forms-and-maybe-emit-clear-values
    68626862                    arg1 'stack (when (fixnum-type-p type1) :int)
    6863                     arg2 'stack (when (fixnum-type-p type2) :int))
     6863                    arg2 'stack (when (null (fixnum-type-p type1)) :int))
    68646864              (when (fixnum-type-p type1)
    68656865                (emit 'swap))
Note: See TracChangeset for help on using the changeset viewer.