anchor.diff:  ;;; Tests for function position
   ;;; with seq-type=list test-not=eq key=identity start=other end=other from-end=false
   
  +(define-test |position seq-type=list test-not=eq key=identity start=other end=other from-end=false 3b|
  +  (assert-equal 1
  +		(position *l01* (list *l01* *l1* *l02* *l2*)
  +			  :test-not #'eq :start 1 :end 2)))
  +
  +(define-test |position seq-type=list test-not=eq key=identity start=other end=other from-end=false 3c|
  +  (assert-equal 1
  +		(position *l01* (list *l01* *l1* *l02* *l2*)
  +			  :test-not 'eq :start 1 :end 2)))
  +
  +(define-test |position seq-type=list test-not=eq key=identity start=other end=other from-end=false 3b|
  +  (assert-equal 3
  +		(position *l01* (list *l01* *l1* *l02* *l2*)
  +			  :test-not #'eq :start 2 :end 4)))
  +
  +(define-test |position seq-type=list test-not=eq key=identity start=other end=other from-end=false 3c|
  +  (assert-equal 3
  +		(position *l01* (list *l01* *l1* *l02* *l2*)
  +			  :test-not 'eq :start 2 :end 4)))
  +
  +(define-test |position seq-type=list test-not=eq key=identity start=other end=other from-end=false 4b|
  +  (assert-equal nil
  +		(position *l01* (list *l01* *l01* *l01*)
  +			  :test-not #'eq :start 1 :end 2)))
  +
  +(define-test |position seq-type=list test-not=eq key=identity start=other end=other from-end=false 4c|
  +  (assert-equal nil
  +		(position *l01* (list *l01* *l01* *l01*)
  +			  :test-not 'eq :start 1 :end 2)))
  +
  +(define-test |position seq-type=list test-not=eq key=identity start=other end=other from-end=false 5b|
  +  (assert-equal 1
  +		(position (list *l1*) (list (list *l1*) (list *l1*))
  +			  :test-not #'eq :start 1 :end 2)))
  +
  +(define-test |position seq-type=list test-not=eq key=identity start=other end=other from-end=false 5c|
  +  (assert-equal 1
  +		(position (list *l1*) (list (list *l1*) (list *l1*))
  +			  :test-not 'eq :start 1 :end 2)))
  +
   ;;; ************** 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: ;;; Tests for function position
  ;;; with seq-type=list test-not=eql key=identity start=other end=nil from-end=false
  
  (define-test |position seq-type=list test-not=eql key=identity start=other end=nil from-end=false 1|
    (let ((seq (list *i01* *i02* *i1* *i02* *i2* *i01*)))
      (assert-equal 2
  		  (position *i02* seq
  			    :test-not #'eql :start 1))
      (assert-equal 2
  		  (position *i02* seq
  			    :test-not 'eql :start 1))
      (assert-equal 4
  		  (position *i02* seq
  			    :test-not #'eql :start 3))
      (assert-equal 4
  		  (position *i02* seq
  			    :test-not 'eql :start 3))
      (assert-equal nil
  		  (position *i02* seq
  			    :test-not #'eql :start 5))
      (assert-equal nil
  		  (position *i02* seq
  			    :test-not 'eql :start 5))
      (assert-error 'type-error
  		  (position *i02* seq
  			    :test-not #'eql :start 7))
      (assert-error 'type-error
  		  (position *i02* (append seq 'b)
  			    :test-not #'eql :start 5))))
  
  ;;; ************** ADD MORE TESTS HERE
  
  ;;;;;;;;;;
  