[slime-cvs] CVS slime/contrib

[CVS User heller]

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

Modified Files:
	ChangeLog slime-repl.el 
Log Message:
* slime-repl.el (slime-repl-connected-hook-function): Create a
repl thread before creating a repl buffer.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2008/12/26 07:22:56	1.149
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2008/12/26 07:23:05	1.150
@@ -1,3 +1,8 @@
+2008-12-26  Helmut Eller  <heller at common-lisp.net>
+
+	* slime-repl.el (slime-repl-connected-hook-function): Create a
+	repl thread before creating a repl buffer.
+
 2008-12-25  Helmut Eller  <heller at common-lisp.net>
 
 	* inferior-slime.el (inferior-slime-switch-to-repl-buffer): New
--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2008/12/24 08:14:07	1.3
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2008/12/26 07:23:05	1.4
@@ -1,3 +1,24 @@
+;;; slime-repl.el --- Read-Eval-Print Loop written in Emacs Lisp
+;;
+;; Original Author: Helmut Eller
+;; Contributors: to many to mention
+;; License: GNU GPL (same license as Emacs)
+;;
+;;; Description:
+;;
+;; This file implements a Lisp Listener along with some niceties like
+;; a persistent history and various "shortcut" commands.  Nothing here
+;; depends on comint.el; I/O is multiplexed over SLIME's socket.
+;;
+;; This used to be the default REPL for SLIME, but it was hard to
+;; maintain.
+;;
+;;; Installation:
+;;
+;; Call slime-setup and include 'slime-repl as argument: 
+;;
+;;  (slime-setup '(slime-repl [others conribs ...]))
+;;
 
 ;;;;; slime-repl
 
@@ -1455,9 +1476,9 @@
            (goto-char (point-max))))))
 
 (defun slime-repl-connected-hook-function ()
+  (slime-eval '(swank:create-repl nil))
   (slime-hide-inferior-lisp-buffer)
-  (slime-init-output-buffer (slime-connection))
-  (slime-eval-async '(swank:create-repl nil)))
+  (slime-init-output-buffer (slime-connection)))
 
 (defun slime-repl-event-hook-function (event)
   (destructure-case event