[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv8483

Modified Files:
	io.lisp 
Log Message:
Oops. Fixed stupid bug that caused Climacs to be unable to load UTF-8
files.


--- /project/climacs/cvsroot/climacs/io.lisp	2006/08/20 13:06:39	1.5
+++ /project/climacs/cvsroot/climacs/io.lisp	2006/09/02 11:41:41	1.6
@@ -32,11 +32,10 @@
   (let* ((seq (make-string (file-length stream)))
          (count (#+mcclim read-sequence #-mcclim cl:read-sequence
                           seq stream)))
-    (if (= count (length seq))
-        (insert-buffer-sequence buffer offset
-                                (if (= count (length seq))
-                                    seq
-                                    (subseq seq 0 count))))))
+    (insert-buffer-sequence buffer offset
+                            (if (= count (length seq))
+                                seq
+                                (subseq seq 0 count)))))
 
 (defmethod make-buffer-from-stream (stream (application-frame climacs))
   (let* ((buffer (make-new-buffer application-frame)))