Plaster
New
List
Login
common-lisp
default
anonymous
2021.01.28 18:14:01
CL-USER> (ql:quickload :bordeaux-threads) To load "bordeaux-threads": Load 1 ASDF system: bordeaux-threads ; Loading "bordeaux-threads" (:BORDEAUX-THREADS) 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 () (a) (b) (a) nil) F CL-USER> (f) "foo" WARNING: redefining COMMON-LISP-USER::A in DEFUN "bar" NIL
Raw
Annotate
Repaste
Edit