;;AUTOLOAD: seek
;;NO AUTODOC: seek "find position of an element in a sequence"
;;seek - find position of an element in a sequence
;;
;;Usage:  (seek list item)
;;	(seek string substring)
;;	(seek string character)
;;
;;In the first form, the list is scanned (with the equal predicate). 
;;If item is present, the function returns its index (number) in the 
;;list starting from 0; otherwise nil is returned.
;;
;;In the second form, the string is searched for an occurrence of 
;;substring. If the substring is present, the function returns the 
;;character position at which it starts; otherwise nil is returned.
;;
;;In the third form, the first occurence of character in string is 
;;returned, or nil if not found.
;;
;;(seek '(a b c) 'a)				 0
;;(seek "abcd" "cd")				 2
;;(seek "abc" #\f)				 ()
;;
;;Note: this is autoloaded for klone versions before 2.3d

(defmacro seek (l e) `(position ,e ,l))
