;;AUTOLOAD: position
;;AUTODOC: position "find position of an element in a sequence"
;;Usage:  (position item list)
;;	(position substring string)
;;	(position character string)
;;
;;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.
;;
;;(position 'a '(a b c))				 0
;;(position "cd" "abcd")				 2
;;(position #\f "abc")				 ()
;;
;;Note: this is autoloaded for klone versions after 2.3c
;;It is included for compatibility with Common Lisp, but please use the
;;faster built-in function "seek", which takes its argument in a consistent
;;order

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