projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
don't close runtime dlhandle on Darwin
[sbcl.git]
/
src
/
code
/
stream.lisp
diff --git
a/src/code/stream.lisp
b/src/code/stream.lisp
index
3065d16
..
30f0e68
100644
(file)
--- a/
src/code/stream.lisp
+++ b/
src/code/stream.lisp
@@
-441,10
+441,8
@@
;; a-s-read-sequence and needs a lambda list that's congruent with
;; that of a-s-read-char
(declare (ignore recursive-p))
;; a-s-read-sequence and needs a lambda list that's congruent with
;; that of a-s-read-char
(declare (ignore recursive-p))
- (prepare-for-fast-read-byte stream
- (prog1
- (fast-read-byte eof-error-p eof-value t)
- (done-with-fast-read-byte))))
+ (with-fast-read-byte (t stream eof-error-p eof-value)
+ (fast-read-byte)))
(defun read-byte (stream &optional (eof-error-p t) eof-value)
(if (ansi-stream-p stream)
(defun read-byte (stream &optional (eof-error-p t) eof-value)
(if (ansi-stream-p stream)
@@
-1301,7
+1299,7
@@
;; end of the stream.
(index-cache 0 :type index)
;; Requested element type
;; end of the stream.
(index-cache 0 :type index)
;; Requested element type
- (element-type 'character))
+ (element-type 'character :type type-specifier))
#!+sb-doc
(setf (fdocumentation 'make-string-output-stream 'function)
#!+sb-doc
(setf (fdocumentation 'make-string-output-stream 'function)