[movitz-devel] list-all-packages

[Shawn Betts]

I noticed movitz was missing list-all-packages.

*** packages.lisp	28 Feb 2005 23:36:08 -0000	1.7
--- packages.lisp	17 Apr 2005 15:21:13 -0000
***************
*** 41,46 ****
--- 41,53 ----
        name
      (find-package-string (string name))))
  
+ (defun list-all-packages ()
+   (let (pkgs)
+     (maphash (lambda (k v)
+                (pushnew v pkgs))
+              (get-global-property :packages))
+     pkgs))
+ 
  (defun find-package-string (name &optional (start 0) (end (length name)) (key 'identity))
    (values (gethash-string name start end
  			  (get-global-property :packages)