Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
10 lines (7 sloc) 273 Bytes
(in-package #:trivial-shell)
(defun shell-command (command input)
(when input
(error "This version of trivial-shell does not support the input parameter."))
(ccl:do-shell-script command))
(defun %exit (code)
(error 'unsupported-function-error :function 'exit))