Skip to content
Snippets Groups Projects
Commit 8b2b5da8 authored by ram's avatar ram
Browse files

Cleaned up some crud in the CONCATENATE/SIMPLE-STRING transform.

parent 33911bbb
No related branches found
No related tags found
No related merge requests found
......@@ -153,6 +153,7 @@ member map concatenate position find
(all-lengths)
(args))
(dolist (seq sequences)
(declare (ignore seq))
(let ((n-seq (gensym))
(n-length (gensym)))
(args n-seq)
......@@ -160,7 +161,7 @@ member map concatenate position find
(all-lengths n-length)
(forms `(setq start end end (+ start ,n-length))
forms)
(push `(%primitive byte-blt ,n-seq 0 ,n-res start end)
(push `(%primitive byte-blt ,n-seq 0 res start end)
forms)))
`(lambda (rtype ,@(args))
(declare (ignore rtype))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment