 
 (require 'cl)
 (require 'ffap)
-(require 'find-lisp)
 (require 'url)
 
 (defun go--xemacs-p ()

  (eq t (compare-strings s1 nil nil
                         s2 0 (length s1) ignore-case)))


(defun go-packages ()
  (sort

                           (if (file-directory-p dir)
                               (directory-files dir t "\\.a$"))))
                 (if (file-directory-p pkgdir)
                     (go--directory-dirs pkgdir)))))
     (go-root-and-paths)))
   'string<))

