From 1a0107475b468c852d7a762f67e868362150ef89 Mon Sep 17 00:00:00 2001
From: Kris Katterjohn <katterjohn@gmail.com>
Date: Fri, 5 Jul 2024 17:18:19 -0400
Subject: [PATCH] transl: avoid generating (RETURN (GO ...)) at the end of a
 PROG

No problems with the test suite, share test suite or rtest_translator.
---
 src/transl.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/transl.lisp b/src/transl.lisp
index a49b2b174..e1d4efae9 100644
--- a/src/transl.lisp
+++ b/src/transl.lisp
@@ -1094,7 +1094,7 @@ APPLY means like APPLY.")
                     (setq form (cdr form))
                     (if (and need-prog?
                              (or (atom form)
-                                 (not (eq (car form) 'return))))
+                                 (not (memq (car form) '(go return)))))
                         ;; put a RETURN on just in case.
                         (setq form `(return ,form))))))
             ((go-tag-p form))
-- 
2.11.4.GIT