[slime-cvs] CVS slime/contrib

[CVS User heller]

Update of /project/slime/cvsroot/slime/contrib
In directory tiger.common-lisp.net:/tmp/cvs-serv8011/contrib

Modified Files:
	ChangeLog swank-mrepl.lisp swank-repl.lisp swank-snapshot.lisp 
	swank-util.lisp 
Log Message:
Add missing provide.

* swank-repl.lisp
* swank-util.lisp
* swank-mrepl.lisp
* swank-snapshot.lisp

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2012/03/06 01:47:49	1.531
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2012/03/06 20:55:13	1.532
@@ -1,3 +1,12 @@
+2012-03-06  Helmut Eller  <heller at common-lisp.net>
+
+	Add missing provide.
+
+	* swank-repl.lisp
+	* swank-util.lisp
+	* swank-mrepl.lisp
+	* swank-snapshot.lisp
+
 2012-03-06  Stas Boukarev  <stassats at gmail.com>
 
 	* slime-package-fu.el (slime-export-save-file): New variable, when
--- /project/slime/cvsroot/slime/contrib/swank-mrepl.lisp	2012/01/06 09:57:15	1.3
+++ /project/slime/cvsroot/slime/contrib/swank-mrepl.lisp	2012/03/06 20:55:13	1.4
@@ -158,3 +158,5 @@
 	   (catch tag (process-requests nil))
 	(setf tag old-tag)
 	(set-mode channel old-mode)))))
+
+(provide :swank-mrepl)
--- /project/slime/cvsroot/slime/contrib/swank-repl.lisp	2011/12/10 12:33:57	1.4
+++ /project/slime/cvsroot/slime/contrib/swank-repl.lisp	2012/03/06 20:55:13	1.5
@@ -349,3 +349,5 @@
                (setq *global-stdio-connection* nil)))))
 
 (add-hook *connection-closed-hook* 'update-redirection-after-close)
+
+(provide :swank-repl)
--- /project/slime/cvsroot/slime/contrib/swank-snapshot.lisp	2010/08/21 06:39:59	1.3
+++ /project/slime/cvsroot/slime/contrib/swank-snapshot.lisp	2012/03/06 20:55:13	1.4
@@ -16,11 +16,9 @@
 	 (stream (swank::connection.socket-io conn))
 	 (clone (swank-backend:dup (swank-backend:socket-fd stream)))
 	 (style (swank::connection.communication-style conn))
-	 (coding (swank::connection.coding-system conn))
 	 (repl (if (swank::connection.user-io conn) t))
 	 (args (list "--swank-fd" (format nil "~d" clone)
 		     "--swank-style" (format nil "~s" style)
-		     "--swank-coding" (format nil "~s" coding)
 		     "--swank-repl" (format nil "~s" repl))))
     (swank::close-connection conn nil nil)
     (swank-backend:exec-image image-file args)))
@@ -49,13 +47,12 @@
   (format *error-output* "args: ~s~%" (command-line-args))
   (let* ((fd (read-command-line-arg "--swank-fd"))
 	 (style (read-command-line-arg "--swank-style"))
-	 (coding (read-command-line-arg "--swank-coding"))
 	 (repl (read-command-line-arg "--swank-repl"))
-	 (* (format *error-output* "fd=~s style=~s cs=~s~%" fd style coding))
-	 (stream (make-fd-stream fd (find-external-format-or-lose coding)))
-	 (connection (make-connection nil stream style  coding)))
+	 (* (format *error-output* "fd=~s style=~s~%" fd style))
+	 (stream (make-fd-stream fd nil))
+	 (connection (make-connection nil stream style)))
     (let ((*emacs-connection* connection))
-      (when repl (create-repl nil))
+      (when repl (swank::create-repl nil))
       (background-message "~A" "Lisp image restored"))
     (serve-requests connection)
     (simple-repl)))
@@ -66,3 +63,5 @@
     (read-from-string (elt args (1+ pos)))))
 
 (in-package :swank-snapshot)
+
+(provide :swank-snapshot)
--- /project/slime/cvsroot/slime/contrib/swank-util.lisp	2011/12/01 16:51:29	1.1
+++ /project/slime/cvsroot/slime/contrib/swank-util.lisp	2012/03/06 20:55:13	1.2
@@ -62,3 +62,5 @@
       (when (special-operator-p symbol) (flip #\s))
       (when (find-package symbol)       (flip #\p))
       result)))
+
+(provide :swank-util)