(tagbody
again
;; Avoid CMUCL gengc write barrier
- (do ((i start (+ i (the fixnum #.(sb-posix:getpagesize)))))
+ (do ((i start (+ i #.(sb-posix:getpagesize))))
((>= i end))
(declare (type fixnum i))
(setf (bref buffer i) 0))
(type (member :input :output :io :probe) direction)
(type (member :error :new-version :rename :rename-and-delete
:overwrite :append :supersede nil) if-exists)
- (type (member :error :create nil) if-does-not-exist)
- (ignore external-format))
+ (type (member :error :create nil) if-does-not-exist))
(let ((filespec (merge-pathnames pathname)))
(multiple-value-bind (fd namestring original delete-original)
(%fd-open filespec direction if-exists if-exists-given
:pathname pathname
:dual-channel-p nil
:input-buffer-p t
- :auto-close t))
+ :auto-close t
+ :external-format external-format))
(:probe
(let ((stream (sb-impl::%make-fd-stream :name namestring :fd fd
:pathname pathname