下面这个函数有哪些作用？

lite

下面这个函数有哪些作用？用在哪的？
   (defun find( str1 str2 / pos len found ret len1 )
        (setq pos 1 found 0)
        (setq len (strlen str1) )
       (setq len1 (strlen str2) )
       (while ( <= pos len )
      (if (= str2 (substr str1 pos len1 ) )
   (progn
    ( setq found pos )
    ( setq pos len ) ) )
    ( setq pos (1+ pos ) ) )
   ( setq ret found ))

lsjj

類似vl-string-search,str1 str2對調