projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.7.8.8:
[sbcl.git]
/
src
/
code
/
sort.lisp
diff --git
a/src/code/sort.lisp
b/src/code/sort.lisp
index
de92015
..
e312715
100644
(file)
--- a/
src/code/sort.lisp
+++ b/
src/code/sort.lisp
@@
-431,8
+431,8
@@
(vector-2 (coerce sequence2 'vector))
(length-1 (length vector-1))
(length-2 (length vector-2))
(vector-2 (coerce sequence2 'vector))
(length-1 (length vector-1))
(length-2 (length vector-2))
- (result (make-sequence-of-type result-type
- (+ length-1 length-2))))
+ (result (make-sequence result-type
+ (+ length-1 length-2))))
(declare (vector vector-1 vector-2)
(fixnum length-1 length-2))
(declare (vector vector-1 vector-2)
(fixnum length-1 length-2))