 
 (cl-defun vendle:make-package-name-local (source info)
   (if info
-      (let ((name (cl-getf info :name)))
+      (cl-letf ((name (cl-getf info :name)))
         (if name
             name
           (file-name-nondirectory source)))


(cl-defun vendle:make-package-name (source info)
  (cond ((vendle:source-github-p source)
         (vendle:make-package-name-github (vendle:source-format-github source) info))))

(cl-defun vendle:make-package-name-github (source info)
  (if info
      (let ((name (cl-getf info :name)))
        (if name
            name
          (cadr (split-string source "/"))))

         (vendle:make-package-path-github (vendle:source-format-github source) info))))

(cl-defun vendle:make-package-path-github (source info)
  (cl-letf ((path (if info
                      (cl-letf ((path (cl-getf info :path))
                                (name (vendle:make-package-name source info)))
                        (if path
                            (cl-concatenate 'string
                                            name  "/"  path)
                          name))
                    (vendle:make-package-name source info))))
    (expand-file-name path *vendle-directory*)))

(cl-defun vendle:make-package-url-local (source info)
  (if info
      (cl-letf ((url (cl-getf info :url)))
        (if url
            url
          nil))
