anchor.diff:  				  (& (funcall pred x)
   					 (= *position-index* i)))
   			 seq :start start :end end :from-end from-end :with-index t)
  -	  *position-index*))
  +    (!? *position-index*
  +        (integer !))))
   
   (defun some (pred &rest seqs)
     (find-if pred (apply #'append seqs)))
  
positive.code:                  (& (funcall test x obj)
                      (= *position-index* i)))
               seq :start start :end end :from-end from-end :with-index t)
  	  *position-index*))
  
  (define-test "POSITION works with character list"
    ((position 's '(l i s p)))
    2)
  
  (define-test "POSITION works with strings"
    ((position #\/ "lisp/foo/bar"))
    4)
  
  (defun position-if (pred seq &key (start nil) (end nil) (from-end nil))
    (let *position-index* nil
  
negative.code: ;;;;; tré – Copyright (c) 2005–2006,2008-2009,2011–2013 Sven Michael Klose <pixel@copei.de>
  
  (functional find position)
  
  