Commit 571c0a75 authored by Eric Timmons's avatar Eric Timmons
Browse files

Fix file descriptor leak

parent 5db495b3
Pipeline #973 passed with stage
in 10 minutes and 7 seconds
...@@ -112,7 +112,10 @@ condition variable is notified." ...@@ -112,7 +112,10 @@ condition variable is notified."
(funcall stream-callback nil)) (funcall stream-callback nil))
(bt:with-lock-held (lock) (bt:with-lock-held (lock)
(bt:condition-notify cv))) (bt:condition-notify cv)))
(uiop:wait-process proc)))) (uiop:wait-process proc)
(close (uiop:process-info-input proc))
(close (uiop:process-info-output proc))
(close (uiop:process-info-error-output proc)))))
(defmethod %http-request ((client curl-client) url (defmethod %http-request ((client curl-client) url
&key additional-headers &key additional-headers
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment