projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.18.3:
[sbcl.git]
/
src
/
code
/
string.lisp
diff --git
a/src/code/string.lisp
b/src/code/string.lisp
index
d38fdb0
..
b1fe487
100644
(file)
--- a/
src/code/string.lisp
+++ b/
src/code/string.lisp
@@
-23,7
+23,7
@@
(t
(error 'simple-type-error
:datum x
(t
(error 'simple-type-error
:datum x
- :expected-type 'stringable
+ :expected-type 'string-designator
:format-control "~S cannot be coerced to a string."
:format-arguments (list x)))))
:format-control "~S cannot be coerced to a string."
:format-arguments (list x)))))
@@
-342,19
+342,16
@@
(using char-equal) of the two strings. Otherwise, returns ()."
(string-not-greaterp* string1 string2 start1 end1 start2 end2))
(using char-equal) of the two strings. Otherwise, returns ()."
(string-not-greaterp* string1 string2 start1 end1 start2 end2))
-(defun make-string (count &key element-type ((:initial-element fill-char)))
+(defun make-string (count &key
+ (element-type 'character)
+ ((:initial-element fill-char)))
#!+sb-doc
"Given a character count and an optional fill character, makes and returns
#!+sb-doc
"Given a character count and an optional fill character, makes and returns
- a new string Count long filled with the fill character."
- (declare (fixnum count)
- (ignore element-type))
+ a new string COUNT long filled with the fill character."
+ (declare (fixnum count))
(if fill-char
(if fill-char
- (do ((i 0 (1+ i))
- (string (make-string count)))
- ((= i count) string)
- (declare (fixnum i))
- (setf (schar string i) fill-char))
- (make-string count)))
+ (make-string count :element-type element-type :initial-element fill-char)
+ (make-string count :element-type element-type)))
(flet ((%upcase (string start end)
(declare (string string) (index start) (type sequence-end end))
(flet ((%upcase (string start end)
(declare (string string) (index start) (type sequence-end end))