Changeset 11531


Ignore:
Timestamp:
01/03/09 18:41:49 (12 years ago)
Author:
vvoutilainen
Message:

In preparation for further refactorings, a tiny change
to p2-plus.

File:
1 edited

Legend:

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

    r11525 r11531  
    67166716              (emit-move-from-stack target representation))
    67176717             ((fixnum-type-p type2)
    6718               (compile-form arg1 'stack nil)
    6719               (maybe-emit-clear-values arg1 arg2)
    6720               (compile-form arg2 'stack :int)
     6718        (compile-forms-and-maybe-emit-clear-values arg1 'stack nil
     6719               arg2 'stack :int)
    67216720              (emit-invokevirtual +lisp-object-class+ "add" '("I") +lisp-object+)
    67226721              (fix-boxing representation result-type)
Note: See TracChangeset for help on using the changeset viewer.