Plaster
New
List
Login
common-lisp
default
anonymous
2021.01.09 11:44:04
(progn (bt:make-thread (lambda () (with-open-file (s1 "/dev/tty" :direction :output :if-exists :append) (dotimes (i 50) (print i s1) (finish-output s1) (sleep .1))))) (bt:make-thread (lambda () (with-open-file (s1 "/dev/tty" :direction :output :if-exists :append) (dotimes (i 50) (print i s1) (finish-output s1) (sleep .1))))))
Raw
Annotate
Repaste
Edit