Changeset 16185


Ignore:
Timestamp:
Sep 2, 2014, 11:10:42 PM (7 years ago)
Author:
gb
Message:

Fix *-eliminate-&rest, I hope. Fixes ticket:1224 in the trunk.

Location:
trunk/source/compiler
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/ARM/arm2.lisp

    r16182 r16185  
    26802680                  (return nil))))
    26812681            (if (eq op (%nx1-operator local-block))
    2682               (setq body (car (acode-operands body)))
     2682              (setq body (cadr (acode-operands body)))
    26832683              (if (and (eq op (%nx1-operator if))
    26842684                       (eq (arm2-lexical-reference-p (car (acode-operands body))) rest))
  • trunk/source/compiler/PPC/ppc2.lisp

    r16177 r16185  
    22412241                  (return nil))))
    22422242            (if (eq op (%nx1-operator local-block))
    2243               (setq body (car (acode-operands body)))
     2243              (setq body (cadr (acode-operands body)))
    22442244              (if (and (eq op (%nx1-operator if))
    22452245                       (eq (ppc2-lexical-reference-p (car (acode-operands body))) rest))
  • trunk/source/compiler/X86/x862.lisp

    r16176 r16185  
    31613161                  (return nil))))
    31623162            (if (eq op (%nx1-operator local-block))
    3163               (setq body (cadr body))
     3163              (setq body (cadr (acode-operands body)))
    31643164              (if (and (eq op (%nx1-operator if))
    31653165                       (eq (nx2-lexical-reference-p (car (acode-operands body))) rest))
Note: See TracChangeset for help on using the changeset viewer.