X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Fclasses.lisp;h=0bc782d1bcadf2aa02acc803e8eeb7b6a802e46f;hb=93b89755004549ed5f20d1938fd6e54ee20650b2;hp=a3a8cec6dc06069c71efb4e9ad88f12d8c067ca3;hpb=cc9a73604f696b6e69842a95b1e11f40f8cdd7bf;p=sbcl.git

diff --git a/contrib/sb-simple-streams/classes.lisp b/contrib/sb-simple-streams/classes.lisp
index a3a8cec..0bc782d 100644
--- a/contrib/sb-simple-streams/classes.lisp
+++ b/contrib/sb-simple-streams/classes.lisp
@@ -75,7 +75,7 @@
    (oc-state :initform nil)
    ;; TODO: find out what this one does
    (co-state :initform nil)
-   (external-format :initform :default)
+   (external-format :initform (find-external-format :default))
 
    ;; A fixnum (denoting a valid file descriptor), a stream, or nil if
    ;; the stream is not open for input.
@@ -191,8 +191,8 @@
     (when (any-stream-instance-flags stream :input :output)
       (when (any-stream-instance-flags stream :output)
 	(ignore-errors (if abort
-                           (clear-output stream)
-                           (force-output stream))))
+			   (clear-output stream)
+			   (finish-output stream))))
       (call-next-method)
       (setf (sm input-handle stream) nil
 	    (sm output-handle stream) nil)