[slime-cvs] CVS slime

[nsiivola]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv3506

Modified Files:
	ChangeLog slime.el swank-sbcl.lisp 
Log Message:
REPL history with paredit &al, stepping in the REPL with SBCL.

--- /project/slime/cvsroot/slime/ChangeLog	2006/08/27 11:03:37	1.936
+++ /project/slime/cvsroot/slime/ChangeLog	2006/09/11 08:01:58	1.937
@@ -1,3 +1,13 @@
+2006-09-1  Nikodemus Siivola <nikodemus at random-state.net>
+
+	* slime.el (slime-repl-matching-input-regexp): Use the portion
+	between slime-repl-input-mark and point for history search, not
+	the entire input. Patch by Ivan Shvedunov.
+
+	* swank-sbcl.lisp: Declaim SB-C:INSERT-STEP-CONDITIONS 0 for to
+	hide Swank while stepping and avoid endless mutex-acquisition
+	loops.
+
 2006-08-27  Helmut Eller  <heller at common-lisp.net>
 
 	* swank.lisp (input-available-p, process-available-input): Use
--- /project/slime/cvsroot/slime/slime.el	2006/08/26 12:11:06	1.643
+++ /project/slime/cvsroot/slime/slime.el	2006/09/11 08:01:58	1.644
@@ -3864,7 +3864,11 @@
   (if (memq last-command
             '(slime-repl-previous-input slime-repl-next-input))
       slime-repl-history-pattern
-    (concat "^" (regexp-quote (slime-repl-current-input)))))
+    (concat "^" (regexp-quote (slime-buffer-substring-with-reified-output
+                               slime-repl-input-start-mark
+                               (if (> (point) slime-repl-input-start-mark)
+                                   (point)
+                                 slime-repl-input-end-mark))))))
 
 (defun slime-repl-previous-input ()
   (interactive)
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2006/08/10 11:53:35	1.160
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2006/09/11 08:01:59	1.161
@@ -18,7 +18,7 @@
   (require 'sb-introspect)
   (require 'sb-posix))
 
-(declaim (optimize (debug 2)))
+(declaim (optimize (debug 2) (sb-c:insert-step-conditions 0)))
 
 (import-from :sb-gray *gray-stream-symbols* :swank-backend)