[slime-cvs] CVS slime/contrib

[CVS User heller]

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

Modified Files:
	slime-repl.el 
Log Message:
(slime-repl-connected-hook-function): Don't use multiple-value-setq.

--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2008/12/27 18:24:29	1.6
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2008/12/27 21:27:30	1.7
@@ -1501,9 +1501,10 @@
            (goto-char (point-max))))))
 
 (defun slime-repl-connected-hook-function ()
-  (multiple-value-setq ((slime-lisp-package) 
-			(slime-lisp-package-prompt-string))
-    (slime-eval '(swank:create-repl nil)))
+  (destructuring-bind (package prompt) 
+      (slime-eval '(swank:create-repl nil))
+    (setf (slime-lisp-package) package)
+    (setf (slime-lisp-package-prompt-string) prompt))
   (slime-hide-inferior-lisp-buffer)
   (slime-init-output-buffer (slime-connection)))