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

[Helmut Eller]

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

Modified Files:
	swank-backend.lisp 
Log Message:
(debugger-info-for-emacs, find-function-locations): Doc fix.

Date: Fri Jan  9 14:42:25 2004
Author: heller

Index: slime/swank-backend.lisp
diff -u slime/swank-backend.lisp:1.11 slime/swank-backend.lisp:1.12
--- slime/swank-backend.lisp:1.11	Fri Jan  2 03:21:08 2004
+++ slime/swank-backend.lisp	Fri Jan  9 14:42:25 2004
@@ -5,7 +5,7 @@
 ;;; Copyright (C) 2003, James Bielman  <jamesjb at jamesjb.com>
 ;;; Released into the public domain.
 ;;;
-;;;   $Id: swank-backend.lisp,v 1.11 2004/01/02 08:21:08 heller Exp $
+;;;   $Id: swank-backend.lisp,v 1.12 2004/01/09 19:42:25 heller Exp $
 ;;;
 
 ;; This is a skeletal implementation of the Slime internals interface.
@@ -219,13 +219,13 @@
   (:documentation
    "Return debugger state, with stack frames from START to END.
 The result is a list:
-  (condition-description ({restart}*) ({stack-frame}*)
+  (condition ({restart}*) ({stack-frame}*)
 where
+  condition   ::= (description type)
   restart     ::= (name description)
   stack-frame ::= (number description)
 
-condition-description---a string describing the condition that
-triggered the debugger.
+condition---a pair of strings: message, and type.
 
 restart---a pair of strings: restart name, and description.
 
@@ -236,12 +236,12 @@
 division by zero (multi-line description), and only one frame is being
 fetched (start=0, end=1).
 
- (\"Arithmetic error DIVISION-BY-ZERO signalled.
-Operation was KERNEL::DIVISION, operands (1 0).
-   [Condition of type DIVISION-BY-ZERO]\"
+ ((\"Arithmetic error DIVISION-BY-ZERO signalled.
+Operation was KERNEL::DIVISION, operands (1 0).\"
+   \"[Condition of type DIVISION-BY-ZERO]\")
   ((\"ABORT\" \"Return to Slime toplevel.\")
    (\"ABORT\" \"Return to Top-Level.\"))
-  ((0 \"0: (KERNEL::INTEGER-/-INTEGER 1 0)\")))"))
+  ((0 \"(KERNEL::INTEGER-/-INTEGER 1 0)\")))"))
 
 (defgeneric backtrace (start end)
   (:documentation
@@ -337,7 +337,10 @@
              | (:source-form <string>)
 
 <position> ::= (:position <fixnum> [<align>]) ; 1 based
-             | (:function-name <string>)"))
+             | (:line <fixnum> [<fixnum>])
+             | (:function-name <string>)
+             | (:source-path <list> <start-position>)
+"))
 
 
 ;;;; Multiprocessing