#+xcvb (module (:depends-on ("pkgdcl")))

(in-package :inferior-shell)

(defparameter *current-host-names* '("localhost"))

(defun current-host-name-p (x)
  (and (stringp x) (member x *current-host-names*)))

(defun initialize-current-host-names ()
  (setf *current-host-names*
        `("localhost"
          ,(run/ss '(hostname -f))
          ,(run/ss '(hostname -s)))))