     (unless (or (and (assq name package-alist) (not quelpa-upgrade-p))
                 (and (not config)
                      (quelpa-message t "no recipe found for package `%s'" name)))
-      (let ((version (condition-case err
-                         (package-build-checkout name config dir)
-                       (error (quelpa-message t
-                                              "failed to checkout `%s': `%s'"
-                                              name
-                                              (error-message-string err))
-                              nil))))
-        (when (quelpa-version>-p name version)
-          version)))))
+      (if (member (plist-get config :fetcher) '(wiki bzr cvs darcs fossil svn))
+          (user-error
+           "The `%s' fetcher is not supported anymore.
+It has been removed from the `package-build' library: cannot install `%s'"
+           (plist-get config :fetcher)
+           name)
+        (let ((version (condition-case err
+                           (package-build-checkout name config dir)
+                         (error "failed to checkout `%s': `%s'"
+                                name (error-message-string err)))))
+          (when (quelpa-version>-p name version)
+            version))))))
 
 (defun quelpa-build-package (rcp)
   "Build a package from the given recipe RCP.

  "The melpa git repository url."
  :group 'quelpa
  :type 'string)

(defvar quelpa-initialized-p nil
  "Non-nil when quelpa has been initialized.")

         new-stamp-info
         new-content-hash
         (time-stamp
          (replace-regexp-in-string "\\.0+" "." (format-time-string "%Y%m%d.%H%M%S")))
         (stamp-file (concat (expand-file-name (symbol-name name) dir) ".stamp"))
         (old-stamp-info (package-build--read-from-file stamp-file))
         (old-content-hash (cdr old-stamp-info))
