anchor.diff:    (assert-equal '(345 b)
   		(assoc '235 '((234 a) (345 b) (234 c))
   		       :test-not 'eql
  +		       :key #'1+)))
  +		 
  +(define-test |assoc test-not=eql key=other 2|
  +  (assert-equal nil
  +		(assoc '235 '((234 a) (234 b) (234 c))
  +		       :test-not #'eql
  +		       :key #'1+)))
  +		 
  +(define-test |assoc test-not=eql key=other 3|
  +  (assert-equal '(345 b)
  +		(assoc '235 '((234 a) nil (345 b) (234 c))
  +		       :test-not #'eql
   		       :key #'1+)))
   		 
   (define-test |assoc test-not=eq key=other 1a|
  
positive.code: 		(assoc '(a b) '((a . b) nil ((a b) c) (d e))
  		       :test-not (complement #'equal))))
  
  (define-test |assoc test=eql key=other 1|
    (assert-equal '((a b) c)
  		(assoc 'a '(((b a) . b) nil ((a b) c) ((d) e))
  		       :key #'car)))
  
  (define-test |assoc test=eq key=other 1|
  
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))
  