Changeset 7423


Ignore:
Timestamp:
Oct 12, 2007, 2:56:33 PM (12 years ago)
Author:
wws
Message:

Fix (define-compiler-macro memequal ...)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0710/ccl/compiler/optimizers.lisp

    r7421 r7423  
    826826          (and (quoted-form-p list)
    827827               (proper-list-p (%cadr list))
    828                (every #'equal-iff-eql-p (%cadr list)) env))
     828               (every (lambda (elt) (equal-iff-eql-p elt env)) (%cadr list))))
    829829    `(memeql ,item ,list)
    830830    call))
Note: See TracChangeset for help on using the changeset viewer.