dev/cmucl.lisp

   1 (in-package #:trivial-shell)
   2
   3 (defun %shell-command (command input)
   4   (let* ((process (ext:run-program
   5                    *bourne-compatible-shell*
   6                    (list "-c" command)
   7                    :input input :output :stream :error :stream))
   8          (output (file-to-string-as-lines (ext::process-output process)))
   9          (error (file-to-string-as-lines (ext::process-error process))))
  10     (close (ext::process-output process))
  11     (close (ext::process-error process))
  12
  13     (values
  14      output
  15      error
  16      (ext::process-exit-code process))))
  17
  18 (defun %os-process-id ()
  19   (error 'unsupported-function-error :function 'os-process-id))
  20
  21 (defun %get-env-var (name)
  22   (cdr (assoc (intern (substitute #\_ #\- name)
  23                       :keyword)
  24               ext:*environment-list*)))
  25
  26 (defun %exit (code)
  27   (unless (zerop code)
  28     (error "CMUCL does not support exit codes."))
  29   (ext:quit t))