From 44831cf5a0ae7b1d6886b5b3820eb5f76ba83df7 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 2 Nov 2002 16:57:29 +0000
Subject: [PATCH] Test that integers work as go tags.

---
 ansi-tests/tagbody.lsp | 46 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)

diff --git a/ansi-tests/tagbody.lsp b/ansi-tests/tagbody.lsp
index 89e1738b..fd373e17 100644
--- a/ansi-tests/tagbody.lsp
+++ b/ansi-tests/tagbody.lsp
@@ -113,3 +113,49 @@
      a)
     result)
   20)
+
+;;; Test that integers are accepted as go tags
+
+(deftest tagbody.13
+  (block done
+    (tagbody
+     (go around)
+     10
+     (return-from done 'good)
+     around
+     (go 10)))
+  good)
+
+(deftest tagbody.14
+  (block done
+    (tagbody
+     (go around)
+     -10
+     (return-from done 'good)
+     around
+     (go -10)))
+  good)
+
+(deftest tagbody.15
+  (block done
+    (tagbody
+     (go around)
+     #.(1+ most-positive-fixnum)
+     (return-from done 'good)
+     around
+     (go #.(1+ most-positive-fixnum))))
+  good)
+
+(deftest tagbody.16
+  (let* ((t1 (1+ most-positive-fixnum))
+	 (t2 (1+ most-positive-fixnum))
+	 (form `(block done
+		  (tagbody
+		   (go around)
+		   ,t1
+		   (return-from done 'good)
+		   around
+		   (go ,t2)))))
+    (eval form))
+  good)
+
-- 
GitLab