projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix QUERY-FILE-SYSTEM for Windows UNC and device file names
[sbcl.git]
/
src
/
code
/
stream.lisp
diff --git
a/src/code/stream.lisp
b/src/code/stream.lisp
index
2b43d83
..
71adb3a
100644
(file)
--- a/
src/code/stream.lisp
+++ b/
src/code/stream.lisp
@@
-1301,7
+1301,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)
@@
-1571,9
+1571,14
@@
benefit of the function GET-OUTPUT-STREAM-STRING.")
;;; FIXME: need to support (VECTOR NIL), ideally without destroying all hope
;;; of efficiency.
;;; FIXME: need to support (VECTOR NIL), ideally without destroying all hope
;;; of efficiency.
+(declaim (inline vector-with-fill-pointer))
+(defun vector-with-fill-pointer-p (x)
+ (and (vectorp x)
+ (array-has-fill-pointer-p x)))
+
(deftype string-with-fill-pointer ()
(deftype string-with-fill-pointer ()
- '(and (or (vector character) (vector base-char))
- (satisfies array-has-fill-pointer-p)))
+ `(and (or (vector character) (vector base-char))
+ (satisfies vector-with-fill-pointer-p)))
(defstruct (fill-pointer-output-stream
(:include ansi-stream
(defstruct (fill-pointer-output-stream
(:include ansi-stream