From 8d016ab7207805daa1d9827de1ab775f4ed1c01f Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 15 Feb 1990 12:11:09 +0000 Subject: [PATCH] Fixed yet more crud in CONCATENATE/SIMPLE-STRING. --- compiler/seqtran.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/compiler/seqtran.lisp b/compiler/seqtran.lisp index afcdb908a..b2ccaa6ea 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)) -- GitLab