%WITH-OTHER-THREADS-SUPENDED debugging macro.

sharplispers · Oct 4, 2016 · 2ed0723 · 2ed0723
1 parent 756257e
commit 2ed0723
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/Sys/misc-features.lisp b/Sys/misc-features.lisp
@@ -652,4 +652,17 @@
 			(setf (elt package-vector (+ (* index 3) 2)) 1)
 			(setf (elt package-vector (+ (* index 3) 2)) 0))))
 
+;;
+;; Suspend other Lisp threads execution. It is here
+;; mostly for debugging purposes.
+;;
+(defmacro %with-other-threads-suspended (&rest body)
+  `(unwind-protect
+		(progn
+		  (cl::suspend-other-threads)
+		  (progn
+			,@body))
+	 (cl::resume-other-threads)))
+
+(export 'cl::%with-other-threads-suspended)