Plaster
New
List
Login
common-lisp
default
phoe
2020.05.15 17:12:31
(defvar *code*) (defun calling-by-two-funcs () (unless (= 200 *code*) (throw :foo nil))) (defun show-1 () (catch :foo (calling-by-two-funcs) 1)) (defun show-2 () (catch :foo (calling-by-two-funcs) 2)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; CL-USER> (let ((*code* 200)) (show-1)) 1 CL-USER> (let ((*code* 200)) (show-2)) 2 CL-USER> (let ((*code* 404)) (show-1)) NIL CL-USER> (let ((*code* 404)) (show-2)) NIL
Raw
Annotate
Repaste