[slime-cvs] CVS slime

[CVS User alendvai]

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

Modified Files:
	swank-source-file-cache.lisp 
Log Message:
read-file: properly deal with formats where (not (eql byte-lenght character-length))


--- /project/slime/cvsroot/slime/swank-source-file-cache.lisp	2009/05/09 19:26:00	1.10
+++ /project/slime/cvsroot/slime/swank-source-file-cache.lisp	2010/05/26 12:19:23	1.11
@@ -81,9 +81,9 @@
 		     :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)))
+    (let* ((string (make-string (file-length s)))
+           (length (read-sequence string s)))
+      (subseq string 0 length))))
 
 ;;;; Snippets