diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-18 16:45:44 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-18 16:57:32 -0700 |
commit | dae5803d35680c2b60d4890c5957776eae6ea32e (patch) | |
tree | 44bb5b04416edbcab56cd94d17f6fbe0882f2f8a /src/util.lisp | |
parent | 7ce78aa1536652789de1c1d6d68e1db6d2030353 (diff) | |
download | consfigurator-dae5803d35680c2b60d4890c5957776eae6ea32e.tar.gz |
import some names from uiop
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/util.lisp')
-rw-r--r-- | src/util.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/util.lisp b/src/util.lisp index 5f0b93a..caa551e 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -23,7 +23,7 @@ (values)) (defun lines (text) - (uiop:split-string (uiop:stripln text) :separator '(#\Newline))) + (split-string (stripln text) :separator '(#\Newline))) (defun unlines (lines) (format nil "~{~A~%~}" lines)) @@ -48,8 +48,8 @@ (dpkg-version-compare x ">=" y)) (defun dpkg-version-compare (x r y) - (= 0 (nth-value 2 (uiop:run-program (list "dpkg" "--compare-versions" x r y) - :ignore-error-status t)))) + (= 0 (nth-value 2 (run-program (list "dpkg" "--compare-versions" x r y) + :ignore-error-status t)))) ;;;; Encoding of strings to filenames |