Update of /project/lispy/cvsroot/lispy In directory clnet:/tmp/cvs-serv378

Modified Files: lispy.lisp Log Message: Fix upgrade-all

--- /project/lispy/cvsroot/lispy/lispy.lisp 2007/07/14 05:11:54 1.6 +++ /project/lispy/cvsroot/lispy/lispy.lisp 2007/07/21 07:08:55 1.7 @@ -292,7 +292,7 @@ (let ((module (module-by-name (name i)))) (when (and module (upgradable-p i module)) - (push module result)))) + (push (list i (latest-version module)) result)))) result))

(defgeneric upgrade (install)) @@ -318,8 +318,11 @@ (version install)))))

(defun upgrade-all () - (dolist (install (list-upgrades)) - (upgrade install))) + (dolist (upgrade (list-upgrades)) + (destructuring-bind (install version) + upgrade + (declare (ignore version)) + (upgrade install))))

;;; Lispy bootstrap code (remove installation.lisp-expr, distfiles and ;;; all source directories)