;; shell
;; execute command via the shell
;; obsolete calls here for backwards compat

;;AUTOLOAD: shell

(defun shell (command &aux
    (shell-name (getenv "SHELL"))
  )
  (if (not shell-name) (setq shell-name "/bin/sh"))
  (wait (system (list shell-name "-c" command)))
)

;;AUTOLOAD: !

(defun ! (&rest args)
  (system args)
)

;;AUTOLOAD: !!

(defun !! (&rest args)
  (wait (system args))
)
