mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 02:30:42 -08:00
10 lines
No EOL
728 B
Text
Vendored
10 lines
No EOL
728 B
Text
Vendored
<data id="I3867860650" data-in-package="clog-tools" data-custom-slots="" data-clog-next-id="2" data-clog-title="thread-list"></data><table data-clog-type="w3-table" class="w3-table w3-striped w3-border w3-bordered w3-hoverable w3-small" data-clog-name="w3-table-1" style="box-sizing: content-box; position: static; inset: 0px 0px 0px 1px; width: 100%; height: 100%;" data-on-create="(loop
|
|
(let ((threads (swank:list-threads)))
|
|
(dolist (thread threads)
|
|
(let ((tr (create-table-row target)))
|
|
(create-table-column tr :content (second thread))
|
|
(create-table-column tr :content (third thread)))))
|
|
(sleep 1)
|
|
(setf (inner-html target) "")
|
|
(unless (visiblep target)
|
|
(return)))"></table> |