anchor.diff:        (aref sequence index)))
   
   (defun position (item sequence &key test key); test-not start end from-end
  -  (unless test (setf test #'eql))
  -  (unless key (setf key #'identity))
  +  (unless test (setf test 'eql))
  +  (unless key (setf key 'identity))
     (if (listp sequence)
         (do ((p 0 (1+ p))
   	   (i sequence (cdr i)))
  
positive.code: 	  (return i)))))
  
  (defun count-if (predicate sequence &key key);from-end start end
    (unless key (setf key #'identity))
    (let ((n 0))
      (if (listp sequence)
  	(dolist (e sequence)
  
negative.code: 
  ;; Selection sort!
  (defun sort (sequence predicate &key key)
    (unless key (setf key 'identity))
    (when sequence
      (do* ((ipos sequence (cdr ipos))
  	  (imin ipos ipos))
  