Commit 8bdd05b9 authored by Antoine Martin's avatar Antoine Martin
Browse files

Log errors from threaded function too

parent fd175025
......@@ -124,14 +124,26 @@
(ql-dist:ensure-installed object)
(let ((*default-pathname-defaults*
(base-directory object)))
(run-sbcl :file file
:pre-file pre-file
:environment-pairs (list "*qrmapper-object-name*"
name)
:evals evals)
(with-mutex (mutex)
(endpush name *buffer*)
(condition-notify waitqueue))))))))
(let* ((l (multiple-value-list
(run-sbcl :file file
:pre-file pre-file
:environment-pairs
(list "*qrmapper-object-name*"
name)
:evals evals)))
(status (nth 2 l))
(output (first l)))
(if (eql status 0)
(with-mutex (mutex)
(endpush name *buffer*)
(condition-notify waitqueue))
(with-open-file (file
(from-quickref-dir
(format nil "logs/declt-map/~A.log" name))
:direction :output
:if-exists :supersede
:if-does-not-exist :create)
(format file "~A~%" output))))))))))
(with-mutex (mutex)
(endpush :done *buffer*)))
......
Markdown is supported
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