[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	slime.el ChangeLog 
Log Message:
	Fix C-u C-c C-c in SLDB.

	* slime.el (sldb-recompile-frame-source): Bind
	`slime-compilation-policy' at the right place.


--- /project/slime/cvsroot/slime/slime.el	2009/01/16 15:50:03	1.1117
+++ /project/slime/cvsroot/slime/slime.el	2009/01/17 20:27:28	1.1118
@@ -5943,14 +5943,15 @@
   (interactive "P")
   (slime-eval-async
    `(swank:frame-source-location-for-emacs ,(sldb-frame-number-at-point))
-   (let ((slime-compilation-policy (slime-compute-policy raw-prefix-arg)))
+   (lexical-let ((policy (slime-compute-policy raw-prefix-arg)))
      (lambda (source-location)
        (destructure-case source-location
          ((:error message)
           (message "%s" message)
           (ding))
          (t
-          (slime-recompile-location source-location)))))))
+          (let ((slime-compilation-policy policy))
+            (slime-recompile-location source-location))))))))
 
 
 ;;;; Thread control panel
--- /project/slime/cvsroot/slime/ChangeLog	2009/01/16 15:50:03	1.1669
+++ /project/slime/cvsroot/slime/ChangeLog	2009/01/17 20:27:28	1.1670
@@ -1,9 +1,16 @@
+2009-01-17  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	Fix C-u C-c C-c in SLDB.
+
+	* slime.el (sldb-recompile-frame-source): Bind
+	`slime-compilation-policy' at the right place.
+
 2009-01-15  Martin Simmons  <martin at lispworks.com>
 
 	* swank-lispworks.lisp: wrapper functions for swank-mop
  	slot-boundp-using-class, slot-value-using-class and
  	slot-makunbound-using-class to account for MOP differences.
-	
+
 2009-01-16  Helmut Eller  <heller at common-lisp.net>
 
 	* slime.el (slime-keys): Put C-c C-i and M-* back.