Mercurial > core / lisp/lib/cli/tools/systemd.lisp
changeset 698: |
96958d3eb5b0 |
parent: |
71c05868c4e7
|
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Fri, 04 Oct 2024 22:04:59 -0400 |
permissions: |
-rw-r--r-- |
description: |
fixes |
1 ;;; systemd.lisp --- Systemd CLI Tools 6 (in-package :cli/tools/systemd) 8 (deferror systemd-error (simple-error error) ()) 10 (defun systemd-error (fmt &rest args) 11 (error 'systemd-error :format-arguments args :format-control fmt)) 13 (defparameter *systemctl* (find-exe "systemctl")) 15 (defun run-systemctl (&rest args) 16 (let ((proc (sb-ext:run-program *systemctl* (or args nil) :output :stream))) 17 (with-open-stream (s (sb-ext:process-output proc)) 18 (loop for l = (read-line s nil nil) 21 (if (eq 0 (sb-ext:process-exit-code proc)) 23 (systemd-error "SYSTEMCTL command failed: ~A ~A" *systemctl* (or args "")))))