[movitz-cvs] CVS update: movitz/losp/muerte/packages.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv14081

Modified Files:
	packages.lisp 
Log Message:
Removed global-properties from run-time-context. Put the hash-table of
all packages in *packages* instead.

Date: Thu May  5 15:21:52 2005
Author: ffjeld

Index: movitz/losp/muerte/packages.lisp
diff -u movitz/losp/muerte/packages.lisp:1.8 movitz/losp/muerte/packages.lisp:1.9
--- movitz/losp/muerte/packages.lisp:1.8	Sun Apr 17 20:18:18 2005
+++ movitz/losp/muerte/packages.lisp	Thu May  5 15:21:50 2005
@@ -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.8 2005/04/17 18:18:18 ffjeld Exp $
+;;;; $Id: packages.lisp,v 1.9 2005/05/05 13:21:50 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -30,6 +30,8 @@
   shadowing-symbols-list
   use-list)
 
+(defvar *packages*)			; Set by dump-image.
+
 (defun package-name (object)
   (package-object-name (find-package object)))
 
@@ -42,9 +44,7 @@
     (find-package-string (string name))))
 
 (defun find-package-string (name &optional (start 0) (end (length name)) (key 'identity))
-  (values (gethash-string name start end
-			  (get-global-property :packages)
-			  nil key)))
+  (values (gethash-string name start end *packages* nil key)))
 
 (defun assert-package (name)
   (or (find-package name)
@@ -54,7 +54,7 @@
   (let (pkgs)
     (maphash (lambda (k v)
                (pushnew v pkgs))
-             (get-global-property :packages))
+             *packages*)
     pkgs))
 
 (defun find-symbol-string (name start end key &optional (package *package*))
@@ -117,7 +117,7 @@
 	(symbol-var (gensym))
 	(loop-tag (gensym))
 	(end-tag (gensym)))
-    `(with-hash-table-iterator (,next-package (get-global-property :packages))
+    `(with-hash-table-iterator (,next-package *packages*)
        (do () (nil)
 	 (multiple-value-bind (,more-packages-var ,dummy ,package-var)
 	     (,next-package)