[slime-cvs] CVS slime/contrib

[CVS User heller]

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

Modified Files:
	ChangeLog slime-repl.el 
Log Message:
* swank.lisp (connection.env): New slot. To hold dynamic variable
bindings for this connection.
(with-io-redirection): Use it.
(create-repl): New function.  Currently only redirects IO for the
connection.  Could potentially be used to create multiple
listeners, each with a set of streams and corresponding buffers.
(*redirect-io*, maybe-call-with-io-redirection)
(call-with-redirected-io): Deleted.

* slime-repl.el (slime-repl-connected-hook-function): Create
a repl at startup.  Well, initialize stream redirection.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2008/12/24 08:13:56	1.147
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2008/12/24 08:14:07	1.148
@@ -1,5 +1,10 @@
 2008-12-23  Helmut Eller  <heller at common-lisp.net>
 
+	* slime-repl.el (slime-repl-connected-hook-function): Create
+	a repl at startup.  Well, initialize stream redirection.
+
+2008-12-23  Helmut Eller  <heller at common-lisp.net>
+
 	Move i/o related event handlers to slime-repl.el.
 
 	* slime-repl.el (slime-repl-event-hook-function): Handle some
--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2008/12/24 08:13:56	1.2
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2008/12/24 08:14:07	1.3
@@ -390,6 +390,9 @@
       (let ((key (if prefixed (concat slime-prefix-key key) key)))
         (define-key slime-repl-mode-map key command)))))
 
+(slime-define-keys slime-mode-map
+  ("\C-c\C-z" 'slime-switch-to-output-buffer))
+
 (slime-define-keys slime-repl-mode-map
   ("\C-m" 'slime-repl-return)
   ([return] 'slime-repl-return)
@@ -1453,7 +1456,8 @@
 
 (defun slime-repl-connected-hook-function ()
   (slime-hide-inferior-lisp-buffer)
-  (slime-init-output-buffer (slime-connection)))
+  (slime-init-output-buffer (slime-connection))
+  (slime-eval-async '(swank:create-repl nil)))
 
 (defun slime-repl-event-hook-function (event)
   (destructure-case event
@@ -1470,9 +1474,8 @@
     (t nil)))
 
 (defun slime-repl-init ()
-  (add-hook 'slime-connected-hook 'slime-repl-connected-hook-function)
   (add-hook 'slime-event-hooks 'slime-repl-event-hook-function)
-  )
+  (add-hook 'slime-connected-hook 'slime-repl-connected-hook-function))
 
 (def-slime-test package-updating
     (package-name nicknames)