projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.16.8: NCONC with dx &rest lists
[sbcl.git]
/
src
/
code
/
seq.lisp
diff --git
a/src/code/seq.lisp
b/src/code/seq.lisp
index
a51435d
..
b49f616
100644
(file)
--- a/
src/code/seq.lisp
+++ b/
src/code/seq.lisp
@@
-2178,8
+2178,9
@@
(frob sequence t)
(frob sequence nil))))
(typecase sequence
(frob sequence t)
(frob sequence nil))))
(typecase sequence
- (simple-vector (frob2))
- (simple-base-string (frob2))
+ #!+sb-unicode
+ ((simple-array character (*)) (frob2))
+ ((simple-array base-char (*)) (frob2))
(t (vector*-frob sequence))))
(declare (type (or index null) p))
(values f (and p (the index (- p offset)))))))))
(t (vector*-frob sequence))))
(declare (type (or index null) p))
(values f (and p (the index (- p offset)))))))))