[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

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

Modified Files:
	ChangeLog slime-repl.el 
Log Message:
	* slime-repl.el (with-canonicalized-slime-repl-buffer): XEmacs
	chokes on symbol-names with an initial dot.

	Patch by François-René Rideau.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/05/15 18:37:10	1.207
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/05/15 19:02:19	1.208
@@ -1,5 +1,12 @@
 2009-05-15  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* slime-repl.el (with-canonicalized-slime-repl-buffer): XEmacs
+	chokes on symbol-names with an initial dot.
+
+	Patch by François-René Rideau.
+
+2009-05-15  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	Moved font-lock-magic from slime.el to slime-fontifying-fu.el.
 
 	N.B. slime-fontifying-fu is automatically loaded by
--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/04/03 20:43:48	1.20
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/05/15 19:02:19	1.21
@@ -1573,14 +1573,14 @@
   "Evaluate BODY within a fresh REPL buffer. The REPL prompt is
 canonicalized to \"SWANK\"---we do actually switch to that
 package, though."
-  `(let ((.old-prompt. (slime-lisp-package-prompt-string)))
+  `(let ((%old-prompt% (slime-lisp-package-prompt-string)))
      (unwind-protect
           (progn (with-current-buffer (slime-output-buffer)
                    (setf (slime-lisp-package-prompt-string) "SWANK"))
                  (kill-buffer (slime-output-buffer))
                  (with-current-buffer (slime-output-buffer)
                    , at body))
-       (setf (slime-lisp-package-prompt-string) .old-prompt.))))
+       (setf (slime-lisp-package-prompt-string) %old-prompt%))))
 
 (put 'with-canonicalized-slime-repl-buffer 'lisp-indent-function 0)