Skip to content
Snippets Groups Projects
Commit 9da4814b authored by sds's avatar sds
Browse files

add tests for GO to invalid tags

From "Tobias C. Rittweiler" <tcr@freebits.de>
parent fe330db1
No related branches found
No related tags found
No related merge requests found
......@@ -184,6 +184,18 @@
(def-error-test go.4 (tagbody (go done . foo) done))
(def-error-test go.5 (tagbody (go done foo) done))
;; try to use GO on tag outside of dynamic-extent of TAGBODY
(def-error-test go.6
(let ((f nil))
(tagbody (setf f (lambda () (go foo))) foo)
(funcall f)))
(def-error-test go.7
(funcall (block nil
(tagbody
(return (lambda () (go :foo)))
:foo (return 42)))))
;;; RETURN-FROM
(def-error-test return-from.1 (return-from))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment