fork download

copy

(let ((s (make-string-output-stream)))
         (bt:make-thread
          (lambda ()
            (uiop:run-program "python -c \"for i in range(10): print(i); __import__('time').sleep(1)\"" :output s)))
         (sleep 5)
         (get-output-stream-string s))

; compiling file "/home/2aHSjJ/prog.lisp" (written 30 MAR 2018 07:41:35 PM):
; 
; caught ERROR:
;   READ error during COMPILE-FILE:
;   
;     Package BT does not exist.
;   
;       Line: 3, Column: -1, File-Position: 62
;   
;       Stream: #<SB-INT:FORM-TRACKING-STREAM for "file /home/2aHSjJ/prog.lisp" {1001E595E3}>
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition
; compilation aborted after 0:00:00.031
Unhandled SIMPLE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING
                                    {1001E07133}>:
  compilation failed

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001E07133}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SIMPLE-ERROR "compilation failed" {1001E628E3}> #<unavailable argument>)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<SIMPLE-ERROR "compilation failed" {1001E628E3}>)
2: (INVOKE-DEBUGGER #<SIMPLE-ERROR "compilation failed" {1001E628E3}>)
3: (ERROR "compilation failed")
4: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ERROR "compilation failed") #<NULL-LEXENV>)
5: (SB-INT:SIMPLE-EVAL-IN-LEXENV (WHEN (NTH-VALUE 2 (COMPILE-FILE "prog.lisp")) (ERROR "compilation failed")) #<NULL-LEXENV>)
6: (EVAL (WHEN (NTH-VALUE 2 (COMPILE-FILE "prog.lisp")) (ERROR "compilation failed")))
7: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "(when(nth-value 2(compile-file \"prog.lisp\"))(error \"compilation failed\"))") (:EVAL . "(quit)")))
8: (SB-IMPL::TOPLEVEL-INIT)
9: ((FLET #:WITHOUT-INTERRUPTS-BODY-77 :IN SAVE-LISP-AND-DIE))
10: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

unhandled condition in --disable-debugger mode, quitting

Standard output is empty