list-all-packages

Shawn Betts <[email protected]> Sun, 17 Apr 2005 11:23:48 -0400

Newsgroups	gmane.lisp.movitz.devel
Message-ID	<[email protected]>

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)