Commit 44831cf5 authored by pfdietz's avatar pfdietz
Browse files

Test that integers work as go tags.

parent 534e43c9
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment