[slime-cvs] CVS slime/contrib

[CVS User heller]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv30776/contrib

Modified Files:
	ChangeLog swank-goo.goo swank-kawa.scm swank-mit-scheme.scm 
	swank.rb 
Log Message:
* swank-mit-scheme.scm (swank:create-repl): Implement it.
* swank-kawa.scm, swank-goo.scm, swank.rb (frame-source-location):
Renamed from frame-source-location-for-emacs.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/07/11 19:20:18	1.223
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/07/12 08:01:10	1.224
@@ -16,6 +16,12 @@
 
 	Reported by Stelian Ionescu, Raymond Toy.
 
+2009-07-10  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-mit-scheme.scm (swank:create-repl): Implement it.
+	* swank-kawa.scm, swank-goo.scm, swank.rb (frame-source-location):
+	Renamed from frame-source-location-for-emacs.
+
 2009-07-02  Stas Boukarev  <stassats at gmail.com>
 
 	* slime-repl.el (slime-repl-delete-current-input): Make it interactive.
--- /project/slime/cvsroot/slime/contrib/swank-goo.goo	2008/10/19 20:03:55	1.2
+++ /project/slime/cvsroot/slime/contrib/swank-goo.goo	2009/07/12 08:01:10	1.3
@@ -245,7 +245,7 @@
   (reset-inspector)
   (inspect-object (@condition sldb-context)))
 
-(defslimefun frame-source-location-for-emacs (frame-idx)
+(defslimefun frame-source-location (frame-idx)
   (match (nth-frame frame-idx)
     ((,f , at _)
      (or (emacs-src-loc f)
--- /project/slime/cvsroot/slime/contrib/swank-kawa.scm	2009/03/09 11:06:30	1.14
+++ /project/slime/cvsroot/slime/contrib/swank-kawa.scm	2009/07/12 08:01:10	1.15
@@ -389,8 +389,8 @@
            (send dbg `(throw-to-toplevel ,thread ,id)))
           ((_ (':emacs-rex ('|swank:sldb-continue|) pkg thread id))
            (send dbg `(thread-continue ,thread ,id)))
-          ((_ (':emacs-rex ('|swank:frame-source-location-for-emacs| frame)
-                           pkg thread id))
+          ((_ (':emacs-rex ('|swank:frame-source-location| frame)
+			   pkg thread id))
            (send dbg `(frame-src-loc ,thread ,frame ,id)))
           ((_ (':emacs-rex ('|swank:frame-locals-and-catch-tags| frame)
                            pkg thread id))
--- /project/slime/cvsroot/slime/contrib/swank-mit-scheme.scm	2008/10/19 20:03:55	1.4
+++ /project/slime/cvsroot/slime/contrib/swank-mit-scheme.scm	2009/07/12 08:01:10	1.5
@@ -314,6 +314,13 @@
   (make-port-type `((write-substring ,repl-write-substring)
 		    (write-char ,repl-write-char)) #f))
 
+(define (swank:create-repl socket . _)
+  (let* ((env (user-env *buffer-package*))
+	 (name (format #f "~a" 
+		       (package/name (environment->package 
+				      (user-env *buffer-package*))))))
+    (list name name)))
+
 
 ;;;; Compilation
 
--- /project/slime/cvsroot/slime/contrib/swank.rb	2009/02/14 12:59:32	1.1
+++ /project/slime/cvsroot/slime/contrib/swank.rb	2009/07/12 08:01:10	1.2
@@ -170,7 +170,7 @@
   conn.sldb_backtrace(exc, from, to)
 end
 
-$rpc_entries[:"swank:frame-source-location-for-emacs"] = lambda do |frame|
+$rpc_entries[:"swank:frame-source-location"] = lambda do |frame|
   conn, exc = $sldb_context
   conn.frame_src_loc(exc, frame)
 end