Changeset 627

Timestamp:

Mar 6, 2004, 11:52:44 PM (21 years ago)

Author:

Gary Byers

Message:

Per-thread stack-space calculated on a per-process basis.

File:

• trunk/ccl/level-0/l0-misc.lisp (modified) (1 diff)

trunk/ccl/level-0/l0-misc.lisp

@@ -142 +142 @@
   (let* ((res nil))
     (without-interrupts
-     (do-unexhausted-lisp-threads (thread)
-       (push (cons thread (multiple-value-list (%thread-stack-space thread))) res)))
+     (dolist (p (all-processes))
+       (let* ((thread (process-thread p)))
+         (when thread
+           (push (cons thread (multiple-value-list (%thread-stack-space thread))) res)))))
     res))