anchor.diff:  		       :test-not 'eq
   		       :key #'car)))
   		 
  +(define-test |assoc test-not=eq key=other 2|
  +  (assert-equal nil
  +		(assoc 'x '(((x) a) ((x) b) ((x) c))
  +		       :test-not #'eq
  +		       :key #'car)))
  +		 
  +(define-test |assoc test-not=eq key=other 3|
  +  (assert-equal '((y) b)
  +		(assoc 'x '(((x) a) nil ((y) b) ((x) c))
  +		       :test-not #'eq
  +		       :key #'car)))
  +		 
   (define-test |assoc test-not=other key=other 1a|
     (assert-equal '(345 b)
   		(assoc '234 '((234 a) (345 b) (234 c))
  
positive.code: 		(assoc 'x '((x a) (y b) (x c))
  		       :test-not 'eq)))
  		 
  (define-test assoc.error.1
    (assert-error 'type-error
  		(assoc 'a '((b . c) nil d (a b)))))
  
negative.code: 		       :test-not (lambda (x y) (eql (1+ x) y))
  		       :key #'1+)))
  		 
  (define-test |assoc test-not=other key=other 2|
    (assert-equal nil
  		(assoc '234 '((234 a) (234 b) (234 c))
  		       :test-not (lambda (x y) (eql (1+ x) y))
  		       :key #'1+)))
  		 
  (define-test |assoc test-not=other key=other 3|
    (assert-equal '(345 b)
  		(assoc '234 '((234 a) nil (345 b) (234 c))
  		       :test-not (lambda (x y) (eql (1+ x) y))
  		       :key #'1+)))
  		 
  (define-test |assoc error 1|
    (assert-error 'type-error
  		(assoc 'a '((b . c) nil d (a b)))))
  
  (define-test |assoc error 2|
    (assert-error 'error
  		(assoc 'a '((b . c) nil d (a b))
  		       :test #'eq
  		       :test-not #'eq)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Tests for the assoc-if function
  
  (define-test |assoc-if key=identity 1|
    (assert-equal '(a . b)
  		(assoc-if (lambda (x) (eq x 'a))
  			  '((b) nil (a . b) (a . c)))))
  
  (define-test |assoc-if key=identity 2|
    (assert-equal nil
  		(assoc-if (lambda (x) (eq x 'c))
  			  '((b) nil (a . b) (a . c)))))
  
  (define-test |assoc-if key=identity 3|
    (assert-equal '(nil . c)
  		(assoc-if #'null
  			  '((b) nil (a . b) (nil . c)))))
  
  (define-test |assoc-if key=identity 4|
    (assert-equal '(123 . b)
  		(assoc-if (lambda (x) (eql x 123))
  			  '((b) nil (123 . b) (nil . c)))))
  
  (define-test |assoc-if key=identity 5|
    (assert-equal '(#\a . b)
  		(assoc-if (lambda (x) (eql x #\a))
  			  '((b) nil (#\a . b) (nil . c)))))
  
  (define-test |assoc-if key=other 1|
    (assert-equal '((a b) c)
  		(assoc-if (lambda (x) (eq x 'a))
  			  '(((b a) . b) nil ((a b) c) ((d) e))
  			  :key #'car)))
  
  (define-test |assoc-if.error 1|
    (assert-error 'type-error
  		(assoc-if (lambda (x) (eq x 'a))
  			  '((b . c) nil d (a b)))))
  