- removed another recursive thread locking ('push-downloading-behind').

src/program-events.lisp

@@ -197,9 +197,11 @@
   (wrapped-in-lock (*events-queue*)
     (remove-element-if *events-queue* predicate)))
 
-(defun map-events (fn)
+(defun map-events (fn &key (lock-queue t))
-  (wrapped-in-lock (*events-queue*)
+  (if lock-queue
-    (map-elements *events-queue* fn)))
+      (wrapped-in-lock (*events-queue*)
+        (map-elements *events-queue* fn))
+      (map-elements *events-queue* fn)))
 
 ;;;; generic events
 
@@ -1497,12 +1499,13 @@
 
 (defclass gemini-push-behind-downloading-event (program-event) ())
 
-(defun push-downloading-behind ()
+(defun push-downloading-behind (&key (lock-queue nil))
   (map-events (lambda (a)
                 (when (typep a 'gemini-got-line-event)
                   (setf (skip-rendering a) t)
                   (setf (priority a) +minimum-event-priority+))
-                a)))
+                a)
+              :lock-queue lock-queue))
 
 (defmethod process-event ((object gemini-push-behind-downloading-event))
   (push-downloading-behind))