Changeset 7421 for branches/working-0710


Ignore:
Timestamp:
Oct 12, 2007, 1:37:55 PM (12 years ago)
Author:
gb
Message:

Fix typo in ASSOC alist.

File:
1 edited

Legend:

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

    r7383 r7421  
    340340
    341341(define-compiler-macro assoc (&whole call item list &rest keys)
    342   (or (remove-explicit-test-keyword-from-test-testnot-key item list keys 'asseql '((eq . assq) (eql .asseql) (equal . assequal)) 'assoc-test)
     342  (or (remove-explicit-test-keyword-from-test-testnot-key item list keys 'asseql '((eq . assq) (eql . asseql) (equal . assequal)) 'assoc-test)
    343343      call))
    344344
Note: See TracChangeset for help on using the changeset viewer.