mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

Now all threads have their names.

Browse source 
It is better to pass :name parameter to every bt:make-thread call
becaise otherwise all threads in system will be like this:

    #<SB-THREAD:THREAD "Anonymous thread" RUNNING {1006295ED3}>

Anonymous threads make debugging harder :(
This commit is contained in:
Alexander Artemenko 2021-03-08 00:35:35 +03:00
parent ac9fea0799
commit b6e1ce9650
2 changed files with 14 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

3
tutorial/07-tutorial.lisp
View file

@ -48,7 +48,8 @@
(setf (text mover) ")-o-(")
(sleep .2)
(setf (text mover) "(-o-)"))
(setf (inner-html mover) "<H1>GAME OVER</H1>")))
(setf (inner-html mover) "<H1>GAME OVER</H1>"))
:name "Dragon event loop")
;; Check of browser still connected while running game loop
(loop
(unless (validp body)