[slime-cvs] CVS slime

[mbaringer]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv6202

Modified Files:
	slime.el ChangeLog 
Log Message:


--- /project/slime/cvsroot/slime/slime.el	2008/02/04 20:35:11	1.899
+++ /project/slime/cvsroot/slime/slime.el	2008/02/05 12:06:21	1.900
@@ -2267,7 +2267,9 @@
     (save-excursion
       (when (or (re-search-backward regexp nil t)
                 (re-search-forward regexp nil t))
-        (match-string-no-properties 2)))))
+        ;; package name can be a string designator, convert it to a string.
+        (slime-eval `(cl:string (cl:second (cl:read-from-string ,(match-string-no-properties 0))))
+                    "COMMON-LISP-USER")))))
 
 ;;; Synchronous requests are implemented in terms of asynchronous
 ;;; ones. We make an asynchronous request with a continuation function
@@ -3317,8 +3319,12 @@
 
 (defun slime-repl-set-package (package)
   "Set the package of the REPL buffer to PACKAGE."
-  (interactive (list (slime-read-package-name
-                      "Package: " (slime-pretty-find-buffer-package))))
+  (interactive (list (slime-read-package-name "Package: "
+                                              (if (string= (slime-current-package)
+                                                           (with-current-buffer (slime-repl-buffer)
+                                                             (slime-current-package)))
+                                                nil
+                                                (slime-pretty-find-buffer-package)))))
   (with-current-buffer (slime-output-buffer)
     (let ((unfinished-input (slime-repl-current-input)))
       (destructuring-bind (name prompt-string)
--- /project/slime/cvsroot/slime/ChangeLog	2008/02/04 20:35:11	1.1281
+++ /project/slime/cvsroot/slime/ChangeLog	2008/02/05 12:06:22	1.1282
@@ -1,3 +1,11 @@
+2008-02-05  Marco Baringer  <mb at bese.it>
+
+	* slime.el (slime-search-buffer-package): Ask the lisp to read the
+	in-package form so that we properly deal with #+foo and |WHATEVER|
+	package names.
+	(slime-repl-set-package): Only prompt with a default package if
+	the repl's package is different from the current package.
+
 2008-02-04  Marco Baringer  <mb at bese.it>
 
 	* swank-openmcl.lisp (ccl::advise ccl::break): advise the