Ignore:
Timestamp:
12/29/08 23:19:42 (13 years ago)
Author:
vvoutilainen
Message:

Remove Cons special case from car/cdr, it doesn't seem
to make a big difference.

File:
1 edited

Legend:

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

    r11508 r11509  
    45794579
    45804580(defun emit-car/cdr (arg target representation field)
    4581   (cond ((eq (derive-type arg) 'CONS)
    4582    (compile-form arg 'stack nil)
    4583    (emit 'checkcast +lisp-cons-class+)
    4584    (emit 'getfield +lisp-cons-class+ field +lisp-object+)
    4585    (fix-boxing representation nil)
    4586    (emit-move-from-stack target representation))
    4587   (t
    4588    (compile-forms-and-maybe-emit-clear-values arg 'stack nil)
    4589    (emit-invoke-method field target representation))))
     4581  (compile-forms-and-maybe-emit-clear-values arg 'stack nil)
     4582  (emit-invoke-method field target representation))
    45904583
    45914584(defun p2-car (form target representation)
Note: See TracChangeset for help on using the changeset viewer.