shithub: sl

Info  •  Files  •  Log  •  Branches

lsd: status, use read-all

--- a/src/plan9/lsd.lsp

+++ b/src/plan9/lsd.lsp

@@ -127,12 +127,10 @@

   (if (>= pid 0) (attach)))

 (def (status)

-  (let ((sf (procfile 'status)))

-    (read sf)

-    (read sf)

-    (let ((stat (read sf)))

-      (io-close sf)

-      stat)))

+  (let* ((sf (procfile 'status))

+         (stats (read-all sf)))

+    (io-close sf)

+    (caddr stats)))

 (def tracers (table

   "amd64" (λ () (lsd-ctrace (readreg PC) (readreg SP) (u64 0)))