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