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@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)