2 ;;; Returning from a "dynamically" nested non local exists
6 (foo (lambda () (return-from foo 1)))
15 (foo-2 (lambda () (go exit-2)))
25 (test (equal (flet ((foo () (return-from foo 42)))
29 (test (equal (let ((out (list)))
30 (labels ((zfoo (n rf i)
33 (push (lambda () (return-from zfoo n)) rf)
39 (funcall (nth i (reverse rf)))
44 '(-5 -4 -3 999 1 2 3 4 5)))
47 (test (funcall (complement #'zerop) 1))
48 ;; FIXME: Uncomment whenever characterp is defined
49 ;(test (not (funcall (complement #'characterp) #\A)))
50 (test (not (funcall (complement #'member) 'a '(a b c))))
51 (test (funcall (complement #'member) 'd '(a b c)))