* swank-backend.lisp (frame-source-location): Renamed from

frame-source-location-for-emacs.  Update callers accordingly.

ChangeLog

@@ -1,3 +1,8 @@
+2009-06-21  Helmut Eller  <heller@common-lisp.net>
+
+	* swank-backend.lisp (frame-source-location): Renamed from
+	frame-source-location-for-emacs.
+
 2009-06-20  Helmut Eller  <heller@common-lisp.net>
 
 	* slime.el (slime-check-fancy-symbol-name): Don't update the loop

slime.el

@@ -5772,7 +5772,7 @@ This is 0 if START and END at the same line."
 
 (defun sldb-show-frame-source (frame-number)
   (slime-eval-async
-   `(swank:frame-source-location-for-emacs ,frame-number)
+   `(swank:frame-source-location ,frame-number)
    (lambda (source-location)
      (destructure-case source-location
        ((:error message)
@@ -6074,7 +6074,7 @@ was called originally."
 (defun sldb-recompile-frame-source (&optional raw-prefix-arg)
   (interactive "P")
   (slime-eval-async
-   `(swank:frame-source-location-for-emacs ,(sldb-frame-number-at-point))
+   `(swank:frame-source-location ,(sldb-frame-number-at-point))
    (lexical-let ((policy (slime-compute-policy raw-prefix-arg)))
      (lambda (source-location)
        (destructure-case source-location

swank-abcl.lisp

@@ -284,7 +284,7 @@
 (defimplementation disassemble-frame (index)
   (disassemble (debugger:frame-function (nth-frame index))))
 
-(defimplementation frame-source-location-for-emacs (index)
+(defimplementation frame-source-location (index)
   (list :error (format nil "Cannot find source for frame: ~A"
                        (nth-frame index))))
 

swank-allegro.lisp

@@ -187,7 +187,7 @@
 (defimplementation disassemble-frame (index)
   (disassemble (debugger:frame-function (nth-frame index))))
 
-(defimplementation frame-source-location-for-emacs (index)
+(defimplementation frame-source-location (index)
   (let* ((frame (nth-frame index))
          (expr (debugger:frame-expression frame))
          (fspec (first expr)))

swank-backend.lisp

@@ -681,7 +681,7 @@ Return T if `restart-frame' can safely be called on the frame."
   (declare (ignore frame))
   nil)
 
-(definterface frame-source-location-for-emacs (frame-number)
+(definterface frame-source-location (frame-number)
   "Return the source location for the frame associated to FRAME-NUMBER.")
 
 (definterface frame-catch-tags (frame-number)

swank-clisp.lisp

@@ -521,7 +521,7 @@ Return two values: NAME and VALUE"
 (defimplementation restart-frame (index)
   (sys::redo-eval-frame (nth-frame index)))
 
-(defimplementation frame-source-location-for-emacs (index)
+(defimplementation frame-source-location (index)
   `(:error
     ,(format nil "frame-source-location not implemented. (frame: ~A)"
              (nth-frame index))))

swank-cmucl.lisp

@@ -1535,7 +1535,7 @@ A utility for debugging DEBUG-FUNCTION-ARGLIST."
       (error (e)
         (ignore-errors (princ e stream))))))
 
-(defimplementation frame-source-location-for-emacs (index)
+(defimplementation frame-source-location (index)
   (code-location-source-location (di:frame-code-location (nth-frame index))))
 
 (defimplementation eval-in-frame (form index)

swank-corman.lisp

@@ -208,7 +208,7 @@
     (when vars
       (second (elt vars var)))))
 
-(defimplementation frame-source-location-for-emacs (frame-number)
+(defimplementation frame-source-location (frame-number)
   (fspec-location (frame-function (elt *frame-trace* frame-number))))
 
 (defun break (&optional (format-control "Break") &rest format-arguments)

swank-ecl.lisp

@@ -373,7 +373,7 @@
 (defimplementation print-frame (frame stream)
   (format stream "~A" (first frame)))
 
-(defimplementation frame-source-location-for-emacs (frame-number)
+(defimplementation frame-source-location (frame-number)
   (nth-value 1 (frame-function (elt *backtrace* frame-number))))
 
 (defimplementation frame-catch-tags (frame-number)

swank-lispworks.lisp

@@ -383,7 +383,7 @@ Return NIL if the symbol is unbound."
       (declare (ignore _n _s _l))
       value)))
 
-(defimplementation frame-source-location-for-emacs (frame)
+(defimplementation frame-source-location (frame)
   (let ((frame (nth-frame frame))
         (callee (if (plusp frame) (nth-frame (1- frame)))))
     (if (dbg::call-frame-p frame)

swank-openmcl.lisp

@@ -515,7 +515,7 @@
               (push (list name value) result)))))
       (reverse result))))
 
-(defimplementation frame-source-location-for-emacs (index)
+(defimplementation frame-source-location (index)
   (with-frame (p context lfun pc) index
     (declare (ignore p context))
     (if pc

swank-sbcl.lisp

@@ -1118,7 +1118,7 @@ stack."
       (handler-case (code-location-source-location code-location)
         (error (c) (list :error (format nil "~A" c))))))
 
-(defimplementation frame-source-location-for-emacs (index)
+(defimplementation frame-source-location (index)
   (safe-source-location-for-emacs
    (sb-di:frame-code-location (nth-frame index))))
 

swank-scl.lisp

@@ -1367,7 +1367,7 @@ Signal an error if no constructor can be found."
       (error (e)
         (ignore-errors (princ e stream))))))
 
-(defimplementation frame-source-location-for-emacs (index)
+(defimplementation frame-source-location (index)
   (code-location-source-location (di:frame-code-location (nth-frame index))))
 
 (defimplementation eval-in-frame (form index)

swank.lisp

@@ -48,7 +48,7 @@
            #:*inspector-verbose*
            ;; These are re-exported directly from the backend:
            #:buffer-first-change
-           #:frame-source-location-for-emacs
+           #:frame-source-location
            #:restart-frame
            #:sldb-step 
            #:sldb-break