diff --git a/compiler/seqtran.lisp b/compiler/seqtran.lisp index afcdb908a2ae4ab8746e0a0b2b3c1b40bc7f42e1..b2ccaa6ea1d2bd4bcb892e9c2ab95b771a83c00b 100644 --- a/compiler/seqtran.lisp +++ b/compiler/seqtran.lisp @@ -159,8 +159,7 @@ member map concatenate position find (args n-seq) (lets `(,n-length (length ,n-seq))) (all-lengths n-length) - (forms `(setq start end end (+ start ,n-length)) - forms) + (forms `(setq start end end (+ start ,n-length))) (push `(%primitive byte-blt ,n-seq 0 res start end) forms))) `(lambda (rtype ,@(args))