[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv5962

Modified Files:
	packages.lisp 
Log Message:
Add package-used-by-list.


--- /project/movitz/cvsroot/movitz/losp/muerte/packages.lisp	2008/04/23 18:47:46	1.16
+++ /project/movitz/cvsroot/movitz/losp/muerte/packages.lisp	2008/04/27 19:43:37	1.17
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Thu Aug 30 15:19:43 2001
 ;;;;                
-;;;; $Id: packages.lisp,v 1.16 2008/04/23 18:47:46 ffjeld Exp $
+;;;; $Id: packages.lisp,v 1.17 2008/04/27 19:43:37 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -249,8 +249,32 @@
 	    (apropos-symbol symbol string)))))
   (values))
 
+(defun package-used-by-list (package)
+  "Return a list of all packages that use package."
+  (let ((package (find-package package)))
+    (let ((used-by-list nil))
+      (maphash (lambda (name other-package)
+		 (declare (ignore name))
+		 (when (member package
+			       (package-object-use-list other-package)
+			       :test #'eq)
+		   (pushnew other-package used-by-list)))
+	       *packages*)
+      used-by-list)))
+
+(defun list-all-packages ()
+  (with-hash-table-iterator (p *packages*)
+    (do (packages) (nil)
+      (multiple-value-bind (more k v)
+	  (p)
+	(declare (ignore k))
+	(when (not more)
+	  (return packages))
+	(push v packages)))))
+
+
 (defmacro with-package-iterator ((name package-list-form &rest symbol-types) &body body)
   `(macrolet ((,name ()
 		'(warn "with-package-iterator not implemented."
 		  (values nil nil nil nil))))
-     , at body))
\ No newline at end of file
+     , at body))