;;; ホスト名で分岐
(let ((system-name "fuga01"))
  ;; string=で判定
  (when-system-name-match "fuga01"
    1)                                  ; => 1
  ;; 正規表現指定
  (when-system-name-match '(regexp . "fuga")
    1)                                  ; => 1
  )
;;; GNU/linuxならば…
(when-system-type-match 'gnu/linux
  'linux)                               ; => linux
;;; 非Windowsならば…
(when-system-type-match '(not windows-nt)
  'not-windows)                         ; => not-windows
(when-system-type-match '(gnu gnu/linux gnu/kfreebsd darwin cygwin)
  'unix)                                ; => unix