Update of /project/lispy/cvsroot/lispy In directory clnet:/tmp/cvs-serv29275 Modified Files: lispy.lisp Log Message: Added list-upgrades. --- /project/lispy/cvsroot/lispy/lispy.lisp 2007/07/13 14:46:46 1.4 +++ /project/lispy/cvsroot/lispy/lispy.lisp 2007/07/14 03:08:27 1.5 @@ -285,12 +285,14 @@ (> (our-version latest-version) (our-version install)))) -;; (initialize) -;; (install (module-by-name 'drakma)) -;; (install (module-by-name 'cl-plus)) -;; (uninstall (install-by-name 'chunga)) - - +(defmethod list-upgrades () + (let ((result '())) + (dolist (i (list-installation)) + (let ((module (module-by-name (name i)))) + (when (and module + (upgradable-p i module)) + (push module result)))) + result)) ;;; Lispy bootstrap code (remove installation.lisp-expr, distfiles and ;;; all source directories)