[slime-cvs] CVS slime
CVS User sboukarev
sboukarev at common-lisp.net
Mon Sep 28 14:56:20 UTC 2009
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))))
More information about the slime-cvs
mailing list