Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv15466
Modified Files: packages.lisp Log Message: Implement package-nicknames.
--- /project/movitz/cvsroot/movitz/losp/muerte/packages.lisp 2005/08/31 22:32:08 1.12 +++ /project/movitz/cvsroot/movitz/losp/muerte/packages.lisp 2006/04/28 21:19:08 1.13 @@ -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.12 2005/08/31 22:32:08 ffjeld Exp $ +;;;; $Id: packages.lisp,v 1.13 2006/04/28 21:19:08 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -28,13 +28,17 @@ external-symbols internal-symbols shadowing-symbols-list - use-list) + use-list + nicknames)
(defvar *packages*) ; Set by dump-image.
(defun package-name (object) (package-object-name (find-package object)))
+(defun package-nicknames (package-designator) + (package-object-nicknames (find-package package-designator))) + (defun package-use-list (package-name) (package-object-use-list (find-package package-name)))