[slime-cvs] CVS slime/contrib

[CVS User heller]

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

Modified Files:
	ChangeLog slime-mrepl.el slime-repl.el 
Log Message:
* slime-repl.el, slime-mrepl.el: Byte-compile the output
functions.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/01/02 22:02:24	1.162
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/01/04 20:53:06	1.163
@@ -1,3 +1,8 @@
+2009-01-04  Helmut Eller  <heller at common-lisp.net>
+
+	* slime-repl.el, slime-mrepl.el: Byte-compile the output
+	functions.
+
 2009-01-02  Helmut Eller  <heller at common-lisp.net>
 
 	* slime-mrepl.el: New file.
--- /project/slime/cvsroot/slime/contrib/slime-mrepl.el	2009/01/02 22:02:24	1.1
+++ /project/slime/cvsroot/slime/contrib/slime-mrepl.el	2009/01/04 20:53:06	1.2
@@ -28,9 +28,14 @@
       (slime-repl-show-abort))))
 
 (slime-define-channel-method listener :write-string (string)
+  (slime-mrepl-write-string self string))
+
+(defun slime-mrepl-write-string (self string)
   (letf (((slime-connection-output-buffer) (slime-channel-get self 'buffer)))
     (slime-repl-emit string)))
 
+(byte-compile 'slime-mrepl-write-string)
+
 (slime-define-channel-method listener :read-string (thread tag)
   (letf (((slime-connection-output-buffer) (slime-channel-get self 'buffer)))
     (slime-repl-read-string thread tag)))
--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2008/12/30 19:04:06	1.8
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/01/04 20:53:06	1.9
@@ -1805,4 +1805,12 @@
 #\\X
 SWANK> " (buffer-string))))
 
+(let ((byte-compile-warnings '()))
+  (mapc #'byte-compile
+	'(slime-repl-event-hook-function
+	  slime-write-string
+	  slime-repl-write-string
+	  slime-repl-emit
+	  slime-repl-show-maximum-output)))
+
 (provide 'slime-repl)