[slime-cvs] CVS update: slime/swank-backend.lisp slime/swank.lisp slime/swank-sbcl.lisp slime/ChangeLog

[Helmut Eller]

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

Modified Files:
	swank-backend.lisp swank.lisp swank-sbcl.lisp ChangeLog 
Log Message:
* swank-backend.lisp (install-debugger-globally): new interface
function
 
* swank.lisp (install-debugger): call install-debugger-globally
 
* swank-sbcl.lisp (install-debugger-globally): set
sb-ext:*invoke-debugger-hook* too


Date: Sun Oct 23 10:47:56 2005
Author: heller

Index: slime/swank-backend.lisp
diff -u slime/swank-backend.lisp:1.91 slime/swank-backend.lisp:1.92
--- slime/swank-backend.lisp:1.91	Fri Oct 14 20:14:19 2005
+++ slime/swank-backend.lisp	Sun Oct 23 10:47:54 2005
@@ -430,6 +430,12 @@
 
 ;;;; Debugging
 
+(definterface install-debugger-globally (function)
+  "Install FUNCTION as the debugger for all threads/processes. This
+usually involves setting *DEBUGGER-HOOK* and, if the implementation
+permits, hooking into BREAK as well."
+  (setq *debugger-hook* function))
+
 (definterface call-with-debugging-environment (debugger-loop-fn)
    "Call DEBUGGER-LOOP-FN in a suitable debugging environment.
 


Index: slime/swank.lisp
diff -u slime/swank.lisp:1.347 slime/swank.lisp:1.348
--- slime/swank.lisp:1.347	Tue Oct 18 01:26:15 2005
+++ slime/swank.lisp	Sun Oct 23 10:47:54 2005
@@ -64,11 +64,11 @@
   "The KEYWORD package.")
 
 (defvar *canonical-package-nicknames*
-  '((:common-lisp-user . :cl-user))
+  `((:common-lisp-user . :cl-user))
   "Canonical package names to use instead of shortest name/nickname.")
 
 (defvar *auto-abbreviate-dotted-packages* t
-  "Automatically abbreviate dotted package names to their last component when T.")
+  "Abbreviate dotted package names to their last component if T.")
 
 (defvar *swank-io-package*
   (let ((package (make-package :swank-io-package :use '())))
@@ -1067,7 +1067,8 @@
          (let* ((tag (incf *read-input-catch-tag*))
                 (value (catch (intern-catch-tag tag)
                          (send-to-emacs 
-                          `(:eval ,(current-thread) ,tag ,(process-form-for-emacs form)))
+                          `(:eval ,(current-thread) ,tag 
+                            ,(process-form-for-emacs form)))
                          (loop (read-from-emacs)))))
            (destructure-case value
              ((:ok value) value)
@@ -1899,9 +1900,11 @@
 
 (defun package-string-for-prompt (package)
   "Return the shortest nickname (or canonical name) of PACKAGE."
-  (or (canonical-package-nickname package)
-      (auto-abbreviated-package-name package)
-      (shortest-package-nickname package)))
+  (princ-to-string 
+   (make-symbol
+    (or (canonical-package-nickname package)
+        (auto-abbreviated-package-name package)
+        (shortest-package-nickname package)))))
 
 (defun canonical-package-nickname (package)
   "Return the canonical package nickname, if any, of PACKAGE."
@@ -2055,7 +2058,7 @@
 (defun install-debugger (connection)
   (declare (ignore connection))
   (when *global-debugger*
-    (setq *debugger-hook* #'swank-debugger-hook)))
+    (install-debugger-globally #'swank-debugger-hook)))
 
 ;;;;; Debugger loop
 ;;;


Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.147 slime/swank-sbcl.lisp:1.148
--- slime/swank-sbcl.lisp:1.147	Sun Oct 23 09:49:08 2005
+++ slime/swank-sbcl.lisp	Sun Oct 23 10:47:54 2005
@@ -618,6 +618,10 @@
 
 (defvar *sldb-stack-top*)
 
+(defimplementation install-debugger-globally (function)
+  (setq sb-ext:*invoke-debugger-hook* function)
+  (setq *debugger-hook* function))
+
 (defimplementation call-with-debugging-environment (debugger-loop-fn)
   (declare (type function debugger-loop-fn))
   (let* ((*sldb-stack-top* (or sb-debug:*stack-top-hint* (sb-di:top-frame)))


Index: slime/ChangeLog
diff -u slime/ChangeLog:1.799 slime/ChangeLog:1.800
--- slime/ChangeLog:1.799	Sun Oct 23 09:54:49 2005
+++ slime/ChangeLog	Sun Oct 23 10:47:54 2005
@@ -1,8 +1,20 @@
+2005-10-23  Gabor Melis  <mega at hotpop.com>
+ 
+	* swank-backend.lisp (install-debugger-globally): new interface
+	function
+ 
+	* swank.lisp (install-debugger): call install-debugger-globally
+ 
+	* swank-sbcl.lisp (install-debugger-globally): set
+	sb-ext:*invoke-debugger-hook* too
+	
 2005-10-23  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-sbcl.lisp (make-stream-interactive): Spawn a thread to
 	flush interactive streams in reasonably short intervals.  
 	Remove the old backward-compatible threading implementation.
+
+	* swank.lisp (package-string-for-prompt): Respect *print-case*.
 
 2005-10-21  Helmut Eller  <heller at common-lisp.net>