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

Fixed yet more crud in CONCATENATE/SIMPLE-STRING.

parent c08b3324
No related branches found
No related tags found
No related merge requests found
...@@ -159,8 +159,7 @@ member map concatenate position find ...@@ -159,8 +159,7 @@ member map concatenate position find
(args n-seq) (args n-seq)
(lets `(,n-length (length ,n-seq))) (lets `(,n-length (length ,n-seq)))
(all-lengths n-length) (all-lengths n-length)
(forms `(setq start end end (+ start ,n-length)) (forms `(setq start end end (+ start ,n-length)))
forms)
(push `(%primitive byte-blt ,n-seq 0 res start end) (push `(%primitive byte-blt ,n-seq 0 res start end)
forms))) forms)))
`(lambda (rtype ,@(args)) `(lambda (rtype ,@(args))
......
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