[slime-cvs] CVS update: slime/swank.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv25696

Modified Files:
	swank.lisp 
Log Message:
(set-package): Return the shortest nickname.
Date: Thu Jan 22 19:20:39 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.108 slime/swank.lisp:1.109
--- slime/swank.lisp:1.108	Wed Jan 21 19:05:21 2004
+++ slime/swank.lisp	Thu Jan 22 19:20:39 2004
@@ -759,8 +759,9 @@
     (swank-pprint (multiple-value-list (eval (read-from-string string))))))
 
 (defslimefun set-package (package)
-  (setq *package* (guess-package-from-string package))
-  (package-name *package*))
+  "Set *package* to PACKAGE and return its name and shortest nickname."
+  (let ((p (setq *package* (guess-package-from-string package))))
+    (list (package-name p) (shortest-package-nickname p))))
 
 (defslimefun listener-eval (string)
   (clear-user-input)