Skip to content
Snippets Groups Projects
Commit d9856403 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Some simplifications. (run-sbcl is still flaky.)

parent 89bed1d5
No related branches found
No related tags found
No related merge requests found
......@@ -48,12 +48,11 @@
(sb-thread:join-thread thread)))))
(let* ((first-results (generic-run-spec spec input output error nil nil nil))
(full-results (alexandria:flatten (nconc first-results
(loop :for r :in first-results
:nconc (process-result-list r))))))
(mapcan 'process-result-list first-results)))))
(when (keywordp output)
(let ((collected (mapcar #'collect-threads full-results)))
(case output
(:string (apply #'concatenate 'string collected))
(:string/stripped (apply #'concatenate 'string collected))
(:string/stripped (strcat collected))
(:lines (apply #'concatenate 'list collected))
(otherwise collected)))))))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment