Index: contrib/slime-repl.el
===================================================================
RCS file: /project/slime/cvsroot/slime/contrib/slime-repl.el,v
retrieving revision 1.20
diff -u -r1.20 slime-repl.el
--- contrib/slime-repl.el	3 Apr 2009 20:43:48 -0000	1.20
+++ contrib/slime-repl.el	15 May 2009 17:31:35 -0000
@@ -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)
                    ,@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)