[lispy-cvs] CVS lispy

[mkennedy]

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)