diff --git a/.local/share/common-lisp/source/ambrevar/guix.lisp b/.local/share/common-lisp/source/ambrevar/guix.lisp index 25e714bc..e194a3b6 100644 --- a/.local/share/common-lisp/source/ambrevar/guix.lisp +++ b/.local/share/common-lisp/source/ambrevar/guix.lisp @@ -28,7 +28,7 @@ ;; TODO: Restart when port is occupied. (format t (str:concat "Guix installation can fetch the setup files with~%" " guix download http://~a:~a -o setup.tar && tar xf setup.tar~%") - ($:current-ip) + (ambrevar/shell:current-ip) port) (uiop:run-program (list "woof" "-p" (write-to-string port) setup-file) @@ -58,7 +58,7 @@ (list path (parse-integer (first (first - ($:tokenize + (ambrevar/shell:tokenize (cmd:$cmd "du" "-sb" path)))))))) (mapcar #'size->human @@ -66,7 +66,7 @@ limit (sort (mapcar #'pair-item-with-disk-usage (if dead? - (alex:flatten ($:tokenize (cmd:$cmd "guix" "gc" "--list-dead"))) + (alex:flatten (ambrevar/shell:tokenize (cmd:$cmd "guix" "gc" "--list-dead"))) (ambrevar/file:list-directory "/gnu/store" :sort))) #'> :key #'second)))))