Plaster
New
List
Login
common-lisp
default
anonymous
2021.01.28 18:20:00
CL-USER> (defun a () (print "foo")) A CL-USER> (defun b () (bt:make-thread (lambda () (defun a () (print "bar")))) (sleep 3)) B CL-USER> (defun f () (unwind-protect (progn (a) (b)) (a))) F CL-USER> (f) "foo" WARNING: redefining COMMON-LISP-USER::A in DEFUN "bar" NIL
Raw
Annotate
Repaste
Edit