Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

frame-source-location-for-emacs.  Update callers accordingly.
  • Loading branch information...
commit 5120c0c0b6b4e0342dbb351330bc67162d0dac07 1 parent 391f497
heller authored
View
5 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
View
4 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
View
2  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))))
View
2  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)))
View
2  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)
View
2  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))))
View
2  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)
View
2  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)
View
2  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)
View
2  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)
View
2  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
View
2  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))))
View
2  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)
View
2  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
Please sign in to comment.
Something went wrong with that request. Please try again.