[slime-cvs] CVS slime
CVS User heller
heller at common-lisp.net
Sun Jun 21 07:22:56 UTC 2009
Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv843
Modified Files:
ChangeLog slime.el swank-abcl.lisp swank-allegro.lisp
swank-backend.lisp swank-clisp.lisp swank-cmucl.lisp
swank-corman.lisp swank-ecl.lisp swank-lispworks.lisp
swank-openmcl.lisp swank-sbcl.lisp swank-scl.lisp swank.lisp
Log Message:
* swank-backend.lisp (frame-source-location): Renamed from
frame-source-location-for-emacs. Update callers accordingly.
--- /project/slime/cvsroot/slime/ChangeLog 2009/06/20 10:02:46 1.1788
+++ /project/slime/cvsroot/slime/ChangeLog 2009/06/21 07:22:56 1.1789
@@ -1,3 +1,8 @@
+2009-06-21 Helmut Eller <heller at common-lisp.net>
+
+ * swank-backend.lisp (frame-source-location): Renamed from
+ frame-source-location-for-emacs.
+
2009-06-20 Helmut Eller <heller at common-lisp.net>
* slime.el (slime-check-fancy-symbol-name): Don't update the loop
--- /project/slime/cvsroot/slime/slime.el 2009/06/20 10:02:46 1.1186
+++ /project/slime/cvsroot/slime/slime.el 2009/06/21 07:22:56 1.1187
@@ -5772,7 +5772,7 @@
(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 @@
(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
--- /project/slime/cvsroot/slime/swank-abcl.lisp 2009/04/30 12:50:25 1.64
+++ /project/slime/cvsroot/slime/swank-abcl.lisp 2009/06/21 07:22:56 1.65
@@ -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))))
--- /project/slime/cvsroot/slime/swank-allegro.lisp 2009/05/15 18:47:38 1.127
+++ /project/slime/cvsroot/slime/swank-allegro.lisp 2009/06/21 07:22:56 1.128
@@ -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)))
--- /project/slime/cvsroot/slime/swank-backend.lisp 2009/04/29 22:20:25 1.175
+++ /project/slime/cvsroot/slime/swank-backend.lisp 2009/06/21 07:22:56 1.176
@@ -681,7 +681,7 @@
(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)
--- /project/slime/cvsroot/slime/swank-clisp.lisp 2009/01/30 09:58:48 1.89
+++ /project/slime/cvsroot/slime/swank-clisp.lisp 2009/06/21 07:22:56 1.90
@@ -521,7 +521,7 @@
(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))))
--- /project/slime/cvsroot/slime/swank-cmucl.lisp 2009/02/14 12:33:28 1.211
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp 2009/06/21 07:22:56 1.212
@@ -1535,7 +1535,7 @@
(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)
--- /project/slime/cvsroot/slime/swank-corman.lisp 2009/01/10 12:25:16 1.23
+++ /project/slime/cvsroot/slime/swank-corman.lisp 2009/06/21 07:22:56 1.24
@@ -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)
--- /project/slime/cvsroot/slime/swank-ecl.lisp 2009/06/12 12:12:37 1.40
+++ /project/slime/cvsroot/slime/swank-ecl.lisp 2009/06/21 07:22:56 1.41
@@ -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)
--- /project/slime/cvsroot/slime/swank-lispworks.lisp 2009/01/15 17:07:21 1.129
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp 2009/06/21 07:22:56 1.130
@@ -383,7 +383,7 @@
(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)
--- /project/slime/cvsroot/slime/swank-openmcl.lisp 2009/06/20 10:02:34 1.178
+++ /project/slime/cvsroot/slime/swank-openmcl.lisp 2009/06/21 07:22:56 1.179
@@ -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
--- /project/slime/cvsroot/slime/swank-sbcl.lisp 2009/06/14 17:07:03 1.242
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp 2009/06/21 07:22:56 1.243
@@ -1118,7 +1118,7 @@
(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))))
--- /project/slime/cvsroot/slime/swank-scl.lisp 2009/01/10 12:25:16 1.32
+++ /project/slime/cvsroot/slime/swank-scl.lisp 2009/06/21 07:22:56 1.33
@@ -1367,7 +1367,7 @@
(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)
--- /project/slime/cvsroot/slime/swank.lisp 2009/05/28 15:42:47 1.648
+++ /project/slime/cvsroot/slime/swank.lisp 2009/06/21 07:22:56 1.649
@@ -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
More information about the slime-cvs
mailing list