update dllib function

emacs.el

@@ -40,11 +40,11 @@ Each function is called with two args, the filename before changing and after ch
 (require 'url)
 
 (defun dllib-if-unfound (url &optional bite-compile-p force-download-p)
-  "if LIB does not exist, download it from URL and locate it to \"~/emacs.d/lisp/LIB.el\".
-return nil if LIB unfound and downloading failed, otherwise the path of LIB."
+  "If library does not exist, download it from URL and locate it in \"~/emacs.d/lisp/\".
+Return nil if library unfound and downloading failed, otherwise the path where the library installed."
   (let* ((dir (expand-file-name (concat user-emacs-directory "lisp/")))
-         (lib (file-name-nondirectory url))
-         (lpath (concat dir lib))
+         (lib (file-name-sans-extension (file-name-nondirectory url)))
+         (lpath (concat dir lib ".el"))
          (locate-p (locate-library lib)))
     (if (or force-download-p (not locate-p))
         (progn (condition-case nil
@@ -53,8 +53,10 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
                                          lpath
                                          t)
                           (when bite-compile-p
+                            (and (file-writable-p (byte-compile-dest-file lpath))
+                                 (delete-file (byte-compile-dest-file lpath)))
                             (byte-compile-file lpath)))
-                 (error (and (file-readable-p lpath)
+                 (error (and (file-writable-p lpath)
                              (delete-file lpath))
                         (message "downloading %s...something wrong happened!" url)
                         nil))