[slime-cvs] CVS slime

[heller]

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

Modified Files:
	swank-cmucl.lisp ChangeLog 
Log Message:
Handle byte-functions without debug-info.

* swank-cmucl.lisp (byte-function-location): Return an error
if the component has no debug-info.



--- /project/slime/cvsroot/slime/swank-cmucl.lisp	2007/09/05 12:04:43	1.174
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp	2007/11/30 13:10:40	1.175
@@ -911,16 +911,17 @@
 	   (vm::find-code-object function))
        (not (eq closure function))))
 
-
-(defun byte-function-location (fn)
-  "Return the location of the byte-compiled function FN."
-  (etypecase fn
+(defun byte-function-location (fun)
+  "Return the location of the byte-compiled function FUN."
+  (etypecase fun
     ((or c::hairy-byte-function c::simple-byte-function)
-     (let* ((component (c::byte-function-component fn))
-            (debug-info (kernel:%code-debug-info component)))
-       (debug-info-function-name-location debug-info)))
+     (let* ((di (kernel:%code-debug-info (c::byte-function-component fun))))
+       (if di 
+           (debug-info-function-name-location di)
+           `(:error 
+             ,(format nil "Byte-function without debug-info: ~a" fun)))))
     (c::byte-closure
-     (byte-function-location (c::byte-closure-function fn)))))
+     (byte-function-location (c::byte-closure-function fun)))))
 
 ;;; Here we deal with structure accessors. Note that `dd' is a
 ;;; "defstruct descriptor" structure in CMUCL. A `dd' describes a
--- /project/slime/cvsroot/slime/ChangeLog	2007/11/29 12:36:06	1.1252
+++ /project/slime/cvsroot/slime/ChangeLog	2007/11/30 13:10:40	1.1253
@@ -1,7 +1,22 @@
+2007-11-30  Helmut Eller  <heller at common-lisp.net>
+
+	Handle byte-functions without debug-info.
+
+	* swank-cmucl.lisp (byte-function-location): Return an error
+	if the component has no debug-info.
+
+2007-11-30  Helmut Eller  <heller at common-lisp.net>
+
+	Disable the pretty-printer for backtraces.
+	Would be nice if we could print newlines in strings as \n.
+
+	* swank.lisp (*backtrace-printer-bindings*):  New varaible.
+	(backtrace, frame-locals-for-emacs): Use it.
+
 2007-11-29  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* swank.lisp (valid-function-name-p): Fixed wrt. setf functions.
-	
+
 2007-11-29  Helmut Eller  <heller at common-lisp.net>
 
 	Prettify package names for slime-repl-set-package.