Changeset 6545


Ignore:
Timestamp:
May 12, 2007, 9:18:34 PM (15 years ago)
Author:
gb
Message:

Fix typo in ppc2-%i-

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/compiler/PPC/ppc2.lisp

    r6542 r6545  
    66686668  (when overflow
    66696669    (let* ((type *ppc2-target-half-fixnum-type*))
    6670       (when (and (ppc2-form-typep form1 type)
    6671                  (ppc2-form-typep form2 type))
     6670      (when (and (ppc2-form-typep num1 type)
     6671                 (ppc2-form-typep num2 type))
    66726672        (setq overflow nil))))
    66736673  (let* ((v1 (acode-fixnum-form-p num1))
Note: See TracChangeset for help on using the changeset viewer.