[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv27201

Modified Files:
	swank-source-file-cache.lisp 
Log Message:
(read-file): Use guess-external-format.


--- /project/slime/cvsroot/slime/swank-source-file-cache.lisp	2005/08/29 20:02:58	1.4
+++ /project/slime/cvsroot/slime/swank-source-file-cache.lisp	2006/11/19 21:28:41	1.5
@@ -75,7 +75,10 @@
 
 (defun read-file (filename)
   "Return the entire contents of FILENAME as a string."
-  (with-open-file (s filename :direction :input)
+  (with-open-file (s filename :direction :input
+		     :external-format (or (guess-external-format filename)
+					  (find-external-format "latin-1")
+					  :default))
     (let ((string (make-string (file-length s))))
       (read-sequence string s)
       string)))