Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
42 lines (38 sloc) 922 Bytes
(in-package #:common-lisp-user)
(defpackage #:trivial-shell
(:use #:common-lisp #:com.metabang.trivial-timeout)
(:nicknames #:com.metabang.trivial-shell #:metashell)
(:export
#:shell-command
#:with-timeout
#:get-env-var
#:exit
#:*bourne-compatible-shell*
#:*shell-search-paths*
;; conditions
#:timeout-error
#:timeout-error-command))
(eval-when (:compile-toplevel :load-toplevel :execute)
(import
#+allegro
'(mp:process-wait-with-timeout)
#+clisp
'()
#+(and cmu mp)
'(mp:process-wait-with-timeout)
#+(and cmu (not mp))
'()
#+cormanlisp
'()
#+digitool
'(ccl:process-wait-with-timeout)
#+lispworks
'(mp:process-wait-with-timeout)
#+(or openmcl ccl)
'(ccl:process-wait-with-timeout)
#+(and sbcl sb-threads)
'(sb-threads:make-semaphore
sb-threads:signal-semaphore)
#+(and sbcl (not sb-threads))
'()
'#:trivial-shell))
Something went wrong with that request. Please try again.