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