Windows: Use overlapped I/O, CreateFile

[sbcl.git] / contrib / sb-simple-streams / fndb.lisp

diff --git a/contrib/sb-simple-streams/fndb.lisp b/contrib/sb-simple-streams/fndb.lisp
index ad29bbc..237cb93 100644 (file)
--- a/contrib/sb-simple-streams/fndb.lisp
+++ b/contrib/sb-simple-streams/fndb.lisp
@@ -72,7 +72,7 @@ TODO (rudi 2003-05-19): make the above work, make (defknown open) use it.
                                              :rename-and-delete :overwrite
                                              :append :supersede nil))
                          (:if-does-not-exist (member :error :create nil))
-                         (:external-format (member :default))
+                         (:external-format keyword)
                          (:class (or symbol class))
                          (:mapped (member t nil))
                          (:input-handle (or null fixnum stream))