[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

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

Modified Files:
	slime-repl.el ChangeLog 
Log Message:
	* slime-repl.el ([test] interrupt-in-blocking-read): Wrap
	`with-canonicalized-slime-repl-buffer' around the whole
	test. Otherwise the changed repl prompt doesn't extend to the
	actual `slime-test-expect'.


--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/03/03 23:22:05	1.16
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/03/07 20:08:13	1.17
@@ -1781,25 +1781,25 @@
   (with-canonicalized-slime-repl-buffer
     (insert "(read-char)")
     (call-interactively 'slime-repl-return)
-    (slime-wait-condition "reading" #'slime-reading-p 5))
-  (slime-interrupt)
-  (slime-wait-condition "Debugger visible" 
-                        (lambda () 
-                          (and (slime-sldb-level= 1)
-                               (get-buffer-window (sldb-get-default-buffer))))
-                        5)
-  (with-current-buffer (sldb-get-default-buffer)
-    (sldb-continue))
-  (slime-wait-condition "reading" #'slime-reading-p 5)
-  (with-current-buffer (slime-output-buffer)
-    (insert "X")
-    (call-interactively 'slime-repl-return)
-    (slime-sync-to-top-level 5)
-    (slime-test-expect "Buffer contains result" 
-                       "SWANK> (read-char)
+    (slime-wait-condition "reading" #'slime-reading-p 5)
+    (slime-interrupt)
+    (slime-wait-condition "Debugger visible" 
+                          (lambda () 
+                            (and (slime-sldb-level= 1)
+                                 (get-buffer-window (sldb-get-default-buffer))))
+                          5)
+    (with-current-buffer (sldb-get-default-buffer)
+      (sldb-continue))
+    (slime-wait-condition "reading" #'slime-reading-p 5)
+    (with-current-buffer (slime-output-buffer)
+      (insert "X")
+      (call-interactively 'slime-repl-return)
+      (slime-sync-to-top-level 5)
+      (slime-test-expect "Buffer contains result" 
+                         "SWANK> (read-char)
 X
 #\\X
-SWANK> " (buffer-string))))
+SWANK> " (buffer-string)))))
 
 (let ((byte-compile-warnings '()))
   (mapc #'byte-compile
--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/03/07 19:10:06	1.189
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/03/07 20:08:13	1.190
@@ -1,5 +1,12 @@
 2009-03-08  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* slime-repl.el ([test] interrupt-in-blocking-read): Wrap
+	`with-canonicalized-slime-repl-buffer' around the whole
+	test. Otherwise the changed repl prompt doesn't extend to the
+	actual `slime-test-expect'.
+
+2009-03-08  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	* swank-fancy-inspector.lisp (make-visit-file-thunk): New helper;
 	extracted from emacs-inspect [file-stream].
 	([method] emacs-inspect file-stream): Use it.