Changeset 16177


Ignore:
Timestamp:
Aug 29, 2014, 5:10:20 AM (7 years ago)
Author:
gb
Message:

Fix inevitable typos introduced in previous commit.

Location:
trunk/source/compiler
Files:
2 edited

Legend:

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

    r16176 r16177  
    26762676              (setq body (car (acode-operands body)))
    26772677              (if (and (eq op (%nx1-operator if))
    2678                        (eq (arm2-lexical-reference-p (car (acode-operands body)) rest))
     2678                       (eq (arm2-lexical-reference-p (car (acode-operands body))) rest))
    26792679                (setq body (car (cdr (acode-operands body))))
    26802680                (return nil)))))))))
  • trunk/source/compiler/PPC/ppc2.lisp

    r16176 r16177  
    22112211          (if (or (eq op (%nx1-operator lexical-function-call))
    22122212                  (eq op (%nx1-operator call)))
    2213             (destructuring-bind (fn-form (stack-args reg-args) &optional spread-p) (car (acode-operands body))
     2213            (destructuring-bind (fn-form (stack-args reg-args) &optional spread-p) (acode-operands body)
    22142214               (unless (and (eq spread-p t)
    22152215                           (eq (ppc2-lexical-reference-p (%car reg-args)) rest))
Note: See TracChangeset for help on using the changeset viewer.