anchor.diff:    (assert-equal '(345 b)
   		(assoc '234 '((234 a) (345 b) (234 c))
   		       :test-not 'eql)))
  +		 
  +(define-test |assoc test-not=eql key=identity 2|
  +  (assert-equal nil
  +		(assoc '234 '((234 a) (234 b) (234 c))
  +		       :test-not #'eql)))
  +		 
  +(define-test |assoc test-not=eql key=identity 3|
  +  (assert-equal '(345 b)
  +		(assoc '234 '((234 a) nil (345 b) (234 c))
  +		       :test-not #'eql)))
   		 
   (define-test |assoc test-not=eq key=identity 1a|
     (assert-equal '(y b)
  
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 '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))
  