[slime-cvs] CVS update: slime/slime.el

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-lisp-preferred-package-nicknames): Removed. Not very
interesting (and slightly broken) now that shortest-nicknames are
automatically used.

Date: Tue Dec 16 02:59:36 2003
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.148 slime/slime.el:1.149
--- slime/slime.el:1.148	Mon Dec 15 10:53:29 2003
+++ slime/slime.el	Tue Dec 16 02:59:35 2003
@@ -91,15 +91,7 @@
   "The symbol names in the *FEATURES* list of the Superior lisp.
 This is needed to READ Common Lisp expressions adequately.")
 
-(defvar slime-lisp-preferred-package-nicknames
-  '(("COMMON-LISP-USER" . "CL-USER")
-    ("COMMON-LISP" . "CL"))
-  "Association list mapping package names onto their preferred nicknames.
-This determines which name appears in the REPL prompt.")
-
-(defvar slime-default-lisp-package
-  (or (cdr (assoc "COMMON-LISP-USER" slime-lisp-preferred-package-nicknames))
-      "COMMON-LISP-USER")
+(defvar slime-default-lisp-package "CL-USER"
   "The default and initial package for the REPL.")
 
 (defvar slime-lisp-package
@@ -808,8 +800,7 @@
 
 (defun slime-lisp-package ()
   "Return the name of the current REPL package."
-  (or (cdr (assoc slime-lisp-package slime-lisp-preferred-package-nicknames))
-      slime-lisp-package))
+  slime-lisp-package)
 
 (defmacro slime-propertize-region (props &rest body)
   (let ((start (gensym)))