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