Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
b1d65255
Commit
b1d65255
authored
May 26, 2013
by
Raymond Toy
Browse files
Use BYTE-BASH-COPY in COPY-SEQ on strings.
Forgot to do this when we added BYTE-BASH-COPY for REPLACE.
parent
b8c08075
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/compiler/generic/vm-tran.lisp
View file @
b1d65255
...
...
@@ -231,11 +231,11 @@
'
(
let*
((
len
(
length
seq
))
(
res
(
make-string
len
)))
(
declare
(
optimize
(
safety
0
)))
(
b
it
-bash-copy
seq
vector-data-byte-offset
res
vector-data-byte-offset
(
the
vm::offset
(
*
len
vm:char-bytes
)))
(
b
yte
-bash-copy
seq
vector-data-byte-offset
res
vector-data-byte-offset
(
the
vm::offset
(
*
len
vm:char-bytes
)))
res
))
(
deftransform
replace
((
string1
string2
&key
(
start1
0
)
(
start2
0
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment