[slime-cvs] CVS slime/contrib

[CVS User heller]

Update of /project/slime/cvsroot/slime/contrib
In directory tiger.common-lisp.net:/tmp/cvs-serv14824/contrib

Modified Files:
	ChangeLog swank-mrepl.lisp 
Log Message:
* swank-mrepl.lisp (send-prompt): Fix use of OR.
Reported by Mark H. David.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/12/30 17:10:13	1.529
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2012/01/06 09:57:15	1.530
@@ -1,3 +1,8 @@
+2012-01-06  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-mrepl.lisp (send-prompt): Fix use of OR.
+	Reported by Mark H. David.
+
 2011-12-30  Nikodemus Siivola  <nikodemus at random-state.net>
 
 	* slime-cl-indent.el (common-lisp-looking-at-keyword): New function. Looks
--- /project/slime/cvsroot/slime/contrib/swank-mrepl.lisp	2011/12/03 12:03:43	1.2
+++ /project/slime/cvsroot/slime/contrib/swank-mrepl.lisp	2012/01/06 09:57:15	1.3
@@ -28,7 +28,7 @@
 
 (defpackage :swank-mrepl
   (:use :cl :swank-api)
-  (:export #:create-listener))
+  (:export #:create-mrepl))
 
 (in-package :swank-mrepl)
 
@@ -107,7 +107,7 @@
 
 (defun send-prompt (channel)
   (with-slots (env remote) channel
-    (let ((pkg (cdr (or (assoc '*package* env) *package*)))
+    (let ((pkg (or (cdr (assoc '*package* env)) *package*))
 	  (out (cdr (assoc '*standard-output* env)))
 	  (in (cdr (assoc '*standard-input* env))))
       (when out (force-output out))