anchor.diff:  ;;; Tests for function position
   ;;; with seq-type=list test-not=eql key=identity start=other end=nil from-end=true
   
  +(define-test |position seq-type=list test-not=eql key=identity start=other end=nil from-end=true 1|
  +  (let ((seq (reverse (list *i01* *i02* *i1* *i02* *i2* *i01*))))
  +    (assert-equal 3
  +		  (position *i02* seq
  +			    :test-not #'eql :start 1 :from-end t))
  +    (assert-equal 3
  +		  (position *i02* seq
  +			    :test-not 'eql :start 1 :from-end t))
  +    (assert-equal 3
  +		  (position *i02* seq
  +			    :test-not #'eql :start 3 :from-end t))
  +    (assert-equal 3
  +		  (position *i02* seq
  +			    :test-not 'eql :start 3 :from-end t))
  +    (assert-equal nil
  +		  (position *i02* seq
  +			    :test-not #'eql :start 5 :from-end t))
  +    (assert-equal nil
  +		  (position *i02* seq
  +			    :test-not 'eql :start 5 :from-end t))
  +    (assert-error 'type-error
  +		  (position *i02* seq
  +			    :test-not #'eql :start 7 :from-end t))
  +    (assert-error 'type-error
  +		  (position *i02* (append seq 'b)
  +			    :test-not #'eql :start 5 :from-end t))))
  +
   ;;; ************** ADD MORE TESTS HERE
   
   ;;;;;;;;;;;;;;;;;;;;
  
positive.code: ;;; Tests for function position
  ;;; with seq-type=list test-not=eq key=identity start=other end=nil from-end=true
  
  ;;; ************** ADD MORE TESTS HERE
  
  ;;;;;;;;;;;;;;;;;;;;
  
negative.code:   (assert-error 'type-error
  		(position 'a '((b) (b) . b)
  			  :test 'eq :key #'car :from-end t)))
  
  ;;; ************** ADD MORE TESTS HERE
  
  ;;;;;;;;;;;;;;;;;;;;
  