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)))