Fix migration code to only store recipes for installed packages

This commit is contained in:
Ryan C. Thompson 2012-03-18 12:57:35 -07:00
parent 6d75c14cc5
commit 51d8eafc7d

View File

@ -122,10 +122,12 @@
ps
;; convert to the new format, fetching recipes as we go
(loop for (p s) on ps by 'cddr
for x = (el-get-package-symbol p)
when x
collect (cons x (list 'status s
'recipe (el-get-package-def x)))))))
for psym = (el-get-package-symbol p)
when psym
collect (cons psym
(list 'status s
'recipe (when (string= s "installed")
(el-get-package-def psym))))))))
(defun el-get-package-status-alist (&optional package-status-alist)
"return an alist of (PACKAGE . STATUS)"