[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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