[slime-cvs] CVS update: slime/swank.lisp

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(compile-file-for-emacs): Accept optional external-format argument.
Date: Tue Jul 26 22:51:15 2005
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.310 slime/swank.lisp:1.311
--- slime/swank.lisp:1.310	Sun Jul 24 17:30:46 2005
+++ slime/swank.lisp	Tue Jul 26 22:51:14 2005
@@ -1,4 +1,4 @@
-;;; -*- Mode: lisp; outline-regexp: ";;;;;*"; indent-tabs-mode: nil -*-;;;
+;;; -*- outline-regexp: ";;;;;*"; indent-tabs-mode: nil -*-
 ;;;
 ;;; This code has been placed in the Public Domain.  All warranties
 ;;; are disclaimed.
@@ -2197,12 +2197,13 @@
       (list (to-string result)
             (format nil "~,2F" (/ usecs 1000000.0))))))
 
-(defslimefun compile-file-for-emacs (filename load-p)
+(defslimefun compile-file-for-emacs (filename load-p &optional external-format)
   "Compile FILENAME and, when LOAD-P, load the result.
 Record compiler notes signalled as `compiler-condition's."
   (with-buffer-syntax ()
     (let ((*compile-print* nil))
-      (swank-compiler (lambda () (swank-compile-file filename load-p))))))
+      (swank-compiler (lambda () (swank-compile-file filename load-p
+                                                     external-format))))))
 
 (defslimefun compile-string-for-emacs (string buffer position directory)
   "Compile STRING (exerpted from BUFFER at POSITION).