[slime-cvs] CVS slime/contrib

[CVS User heller]

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

Modified Files:
	ChangeLog swank-goo.goo swank-jolt.k swank-kawa.scm 
Log Message:
* swank-goo.goo, swank-jolt.k (create-repl): Implemented.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/07/21 11:02:36	1.227
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/07/21 11:02:42	1.228
@@ -3,6 +3,10 @@
 	* swank-sbcl-exts.lisp (compute-enriched-decoded-arglist): Filter
 	uninteresting arguments for SB-ASSEM:INST.
 
+2009-07-21  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-goo.goo, swank-jolt.k (create-repl): Implemented.
+
 2009-07-19  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-kawa.scm (operator-arglist): Implemented, at least for
--- /project/slime/cvsroot/slime/contrib/swank-goo.goo	2009/07/12 08:01:10	1.3
+++ /project/slime/cvsroot/slime/contrib/swank-goo.goo	2009/07/21 11:02:42	1.4
@@ -499,6 +499,10 @@
 
 (defslimefun ping () "PONG")
 
+(defslimefun create-repl (_)
+  (let ((name (sym-name (module-name (buffer-module)))))
+    `(,name ,name)))
+
 (defslimefun listener-eval (string)
   (clear-input in)
   `(:values ,(write-to-string (str-eval string (buffer-module)))))
--- /project/slime/cvsroot/slime/contrib/swank-jolt.k	2008/10/23 21:33:49	1.1
+++ /project/slime/cvsroot/slime/contrib/swank-jolt.k	2009/07/21 11:02:42	1.2
@@ -117,8 +117,8 @@
 (df _>int (word) (! Integer value_: word))
 (df int>_ (i) (! i _integerValue))
 
-;; Fixnum operators.  Manual tagging/untagging would probably be
-;; efficent than invoking methods
+;; Fixnum operators.  Manual tagging/untagging would probably be more
+;; efficent than invoking methods.
 
 (df fix? (obj) (& obj 1))
 (df _>fix (n) (! SmallInteger value_: n))
@@ -965,6 +965,7 @@
 
 (df swank:operator-arglist () nil)
 (df swank:buffer-first-change () nil)
+(df swank:create-repl (_) '("jolt" "jolt"))
 
 (df min (x y) (if (<= x y) x y))
 
--- /project/slime/cvsroot/slime/contrib/swank-kawa.scm	2009/07/21 11:02:36	1.17
+++ /project/slime/cvsroot/slime/contrib/swank-kawa.scm	2009/07/21 11:02:42	1.18
@@ -360,11 +360,7 @@
           ((in . _) (spawn/chan/catch (fun (c) (reader ins c))))
           ((out . _) (spawn/chan/catch (fun (c) (writer outs c))))
           ((dbg . _) (spawn/chan/catch vm-monitor))
-          (user-env 
-           (<gnu.mapping.InheritingEnvironment>
-            "user" (interaction-environment))
-           ;;(interaction-environment)
-           )
+          (user-env  (interaction-environment))
           (x (seq 
                (! set-flag user-env #t #|<env>:THREAD_SAFE|# 8)
                (! set-flag user-env #f #|<env>:DIRECT_INHERITED_ON_SET|# 16)))