[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-cmucl.lisp 
Log Message:
* swank-cmucl.lisp (swank-compile-file): Use external-format arg.

--- /project/slime/cvsroot/slime/ChangeLog	2012/03/26 15:09:57	1.2303
+++ /project/slime/cvsroot/slime/ChangeLog	2012/03/26 15:10:08	1.2304
@@ -1,5 +1,7 @@
 2012-03-26  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-cmucl.lisp (swank-compile-file): Use external-format arg.
+
 	* swank-ccl.lisp (swank-compile-string, compile-temp-file): Use
 	utf8.
 
--- /project/slime/cvsroot/slime/swank-cmucl.lisp	2012/03/11 18:35:52	1.241
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp	2012/03/26 15:10:08	1.242
@@ -427,13 +427,14 @@
 (defimplementation swank-compile-file (input-file output-file
                                        load-p external-format
                                        &key policy)
-  (declare (ignore external-format policy))
+  (declare (ignore policy))
   (clear-xref-info input-file)
   (with-compilation-hooks ()
     (let ((*buffer-name* nil)
           (ext:*ignore-extra-close-parentheses* nil))
       (multiple-value-bind (output-file warnings-p failure-p)
-          (compile-file input-file :output-file output-file)
+          (compile-file input-file :output-file output-file 
+                        :external-format external-format)
         (values output-file warnings-p
                 (or failure-p
                     (when load-p