          (update-packages-alist))
     (if (> upgrade-count 0)
         (progn
-        ;; (let (toto)
           ;; (message "package to update: %s" update-packages)
           (spacemacs/append-to-buffer
            (format "Found %s package(s) to update...\n" upgrade-count))

        (when reqs2 (setq reqs (append reqs2 reqs)))))
    reqs))

(defun configuration-layer//get-package-version (package)
  "Return the version string for PACKAGE."
  (let ((pkg (assq package package-alist)))
    (when pkg
      (cond
       ((version< emacs-version "24.3.50")
        (package-version-join (aref (cdr pkg) 0)))
       (t (package-version-join (package-desc-version (cadr pkg))))))))

(defun configuration-layer//get-latest-package-version (package)
  "Return the version string for PACKAGE."
  (let ((pkg (assq package package-archive-contents)))
    (when pkg
      (cond
       ((version< emacs-version "24.3.50")
        (package-version-join (aref (cdr pkg) 0)))
       (t (package-version-join (package-desc-version (cadr pkg))))))))

(defun configuration-layer//package-delete (package)
  "Delete the passed PACKAGE."
  (cond
   ((version< emacs-version "24.3.50")
    (package-delete (symbol-name package)
                    (configuration-layer//get-package-version package)))
   (t (package-delete (cadr (assq package package-alist))))))

(defun configuration-layer/delete-orphan-packages ()
  "Delete all the orphan packages."

           "--> performing backup of package to update...\n" t)
          (redisplay)
          (dolist (pkg update-packages)
            (let* ((src-dir (configuration-layer//get-package-directory pkg))
                   (dest-dir (expand-file-name
                              (concat rollback-dir
                                      (file-name-as-directory
