[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv14147

Modified Files:
	ChangeLog swank.lisp 
Log Message:
swank.lisp (set-package): Provide a more meaningful error
message when package doesn't exist.


--- /project/slime/cvsroot/slime/ChangeLog	2009/09/28 11:33:43	1.1867
+++ /project/slime/cvsroot/slime/ChangeLog	2009/09/28 14:56:19	1.1868
@@ -1,5 +1,8 @@
 2009-09-28  Stas Boukarev  <stassats at gmail.com>
 
+	* swank.lisp (set-package): Provide a more meaningful error
+	message when package doesn't exist.
+
 	* swank-lispworks.lisp (replace-strings-with-symbols): Didn't work on
 	non-proper lists. Reported by Madhu.
 
--- /project/slime/cvsroot/slime/swank.lisp	2009/09/20 09:39:16	1.661
+++ /project/slime/cvsroot/slime/swank.lisp	2009/09/28 14:56:19	1.662
@@ -2228,7 +2228,7 @@
   "Set *package* to the package named NAME.
 Return the full package-name and the string to use in the prompt."
   (let ((p (guess-package name)))
-    (assert (packagep p))
+    (assert (packagep p) nil "Package ~a doesn't exist." name)
     (setq *package* p)
     (list (package-name p) (package-string-for-prompt p))))