 
 (defun straight--get-gnu-elpa-recipe (package)
   (unless (straight--repository-is-available-p gnu-elpa-recipe)
-    (straight--clone-repository gnu-elpa-recipe))
+    (straight--clone-repository gnu-elpa-recipe
+                                '(:package (symbol-name package))
+                                "looking for"))
   (straight--with-plist gnu-elpa-recipe
       (local-repo)
     (when (file-exists-p (straight--dir


;;;###autoload
(defun straight-use-package (melpa-style-recipe
                             &optional interactive straight-style)
  (interactive (list (straight-get-elpa-recipe) t))
  (let ((recipe (if straight-style melpa-style-recipe
                  (straight--convert-recipe melpa-style-recipe))))

      (local-repo)
    (file-exists-p (straight--dir "repos" local-repo))))

(defun straight--clone-repository (recipe &optional parent-recipe relation)
  (straight--with-plist recipe
      (package local-repo)
    (straight--with-progress
        (if parent-recipe
            (format "Cloning repository %S for package %S (%s %S)"
                    local-repo package (or relation "dependency of")
                    (plist-get parent-recipe :package))
          (format "Cloning repository %S for package %S"
                  local-repo package))
      (pbl-checkout
       local-repo recipe
       (straight--dir "repos" local-repo)))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Recipe processing
