[slime-cvs] CVS update: slime/swank-cmucl.lisp slime/swank-sbcl.lisp slime/swank-openmcl.lisp slime/swank-clisp.lisp slime/swank-allegro.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv22432

Modified Files:
	swank-cmucl.lisp swank-sbcl.lisp swank-openmcl.lisp 
	swank-clisp.lisp swank-allegro.lisp 
Log Message:
(call-with-compilation-hooks): Bind fewer variables. Most of them are already 
bound in swank.lisp.

Date: Wed Mar  3 15:55:38 2004
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.74 slime/swank-cmucl.lisp:1.75
--- slime/swank-cmucl.lisp:1.74	Wed Mar  3 02:28:48 2004
+++ slime/swank-cmucl.lisp	Wed Mar  3 15:55:38 2004
@@ -964,12 +964,7 @@
   (unix:unix-sigsetmask 0)
   (let* ((*sldb-stack-top* (or debug:*stack-top-hint* (di:top-frame)))
 	 (*sldb-restarts* (compute-restarts *swank-debugger-condition*))
-	 (debug:*stack-top-hint* nil)
-	 (*debugger-hook* nil)
-	 (*readtable* (or debug:*debug-readtable* *readtable*))
-	 (*print-level* debug:*debug-print-level*)
-	 (*print-length* debug:*debug-print-length*)
-         (*print-readably* nil))
+	 (debug:*stack-top-hint* nil))
     (handler-bind ((di:debug-condition 
 		    (lambda (condition)
                       (signal (make-condition


Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.70 slime/swank-sbcl.lisp:1.71
--- slime/swank-sbcl.lisp:1.70	Mon Mar  1 04:02:23 2004
+++ slime/swank-sbcl.lisp	Wed Mar  3 15:55:38 2004
@@ -466,12 +466,7 @@
   (declare (type function debugger-loop-fn))
   (let* ((*sldb-stack-top* (or sb-debug:*stack-top-hint* (sb-di:top-frame)))
 	 (*sldb-restarts* (compute-restarts *swank-debugger-condition*))
-	 (sb-debug:*stack-top-hint* nil)
-	 (*debugger-hook* nil)
-	 (*readtable* (or sb-debug:*debug-readtable* *readtable*))
-	 (*print-level* 4 #+nil sb-debug:*debug-print-level*)
-	 (*print-length* 10 #+nil sb-debug:*debug-print-length*)
-         (*print-readably* nil))
+	 (sb-debug:*stack-top-hint* nil))
     (handler-bind ((sb-di:debug-condition 
 		    (lambda (condition)
                       (signal (make-condition


Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.66 slime/swank-openmcl.lisp:1.67
--- slime/swank-openmcl.lisp:1.66	Fri Feb 27 07:32:06 2004
+++ slime/swank-openmcl.lisp	Wed Mar  3 15:55:38 2004
@@ -231,14 +231,8 @@
 
 (defimplementation call-with-debugging-environment (debugger-loop-fn)
   (let* ((*sldb-stack-top* nil)
-         ;; This is a complete hack --- since we're not running at top level we
-         ;; don't want to publish the last restart to Emacs which would allow
-         ;; the user to break outside of the request loop.  What's the right
-         ;; way to do this?
-         (*sldb-restarts* (butlast
-                           (compute-restarts *swank-debugger-condition*)))
+         (*sldb-restarts* (compute-restarts *swank-debugger-condition*))
          (*debugger-hook* nil)
-         (*package* *buffer-package*)
          (ccl::*signal-printing-errors* nil)) ; don't let error while printing error take us down
     (funcall debugger-loop-fn)))
 


Index: slime/swank-clisp.lisp
diff -u slime/swank-clisp.lisp:1.21 slime/swank-clisp.lisp:1.22
--- slime/swank-clisp.lisp:1.21	Tue Feb 24 18:31:34 2004
+++ slime/swank-clisp.lisp	Wed Mar  3 15:55:38 2004
@@ -225,14 +225,7 @@
 	   (sys::frame-up-1 sys::*frame-limit1* sys::*debug-mode*)
 	   sys::*debug-mode*))
 	 (*sldb-botframe* (sys::frame-up *sldb-topframe* sys::*debug-mode*))
-	 (*debugger-hook* nil)
-	 (*package* *buffer-package*)
-	 (*sldb-restarts*
-	  (compute-restarts *swank-debugger-condition*))
-	 (*print-pretty* nil)
-	 (*print-readably* nil))
-;;;    (*print-level* 3)
-;;;    (*print-length* 10))
+	 (*sldb-restarts* (compute-restarts *swank-debugger-condition*)))
     (funcall debugger-loop-fn)))
 
 (defun format-restarts-for-emacs ()


Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.16 slime/swank-allegro.lisp:1.17
--- slime/swank-allegro.lisp:1.16	Mon Mar  1 04:02:06 2004
+++ slime/swank-allegro.lisp	Wed Mar  3 15:55:38 2004
@@ -109,15 +109,9 @@
 
 (defimplementation call-with-debugging-environment (debugger-loop-fn)
   (let ((*sldb-topframe* (excl::int-newest-frame))
-        (*debugger-hook* nil)
         (excl::*break-hook* nil)
-        (*package* *buffer-package*)
         (*sldb-restarts*
-         (compute-restarts *swank-debugger-condition*))
-        (*print-pretty* nil)
-        (*print-readably* nil)
-        (*print-level* 3)
-        (*print-length* 10))
+         (compute-restarts *swank-debugger-condition*)))
     (funcall debugger-loop-fn)))
 
 (defun format-restarts-for-emacs ()