Changeset 11353


Ignore:
Timestamp:
Nov 11, 2008, 5:55:53 PM (11 years ago)
Author:
gb
Message:

In EQUAL: if we have two non-EQ lists, terminate if either is NIL.
[(EQUAL '(NIL . NIL) NIL) was erroneously returning T.]

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/X86/X8632/x8632-pred.lisp

    r10959 r11353  
    132132  (single-value-return)
    133133  @cons
     134  ;; If either X or Y is NIL, lose.
     135  (cmp-reg-to-nil x)
     136  (je @lose)
     137  (cmp-reg-to-nil y)
     138  (je @lose)
    134139  ;; Check to see if the CARs are EQ.  If so, we can avoid saving
    135140  ;; context, and can just tail call ourselves on the CDRs.
Note: See TracChangeset for help on using the changeset viewer.