diff options
author | Colin Okay <okay@toyful.space> | 2022-02-20 10:25:38 -0600 |
---|---|---|
committer | Colin Okay <okay@toyful.space> | 2022-02-20 10:25:38 -0600 |
commit | 1d8827f9ca76da9d69d81415d7563408b026ef70 (patch) | |
tree | a2184a007166300ea61374211a0859c21d078d16 /src/lib.lisp | |
parent | b66a719737205635ec57203b46ae9759d99baed6 (diff) |
test run of adding new oneliners
Diffstat (limited to 'src/lib.lisp')
-rw-r--r-- | src/lib.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lib.lisp b/src/lib.lisp index d1b8db6..b21272a 100644 --- a/src/lib.lisp +++ b/src/lib.lisp @@ -68,7 +68,7 @@ with the provided name is on the system. It is not perfect. It consults the environment PATH, and looks for the command in any of the directories that appear in the value of that variable." - #+(unix) + #+unix (loop for path in (str:split ":" (uiop:getenv "PATH")) for directory = (cons :absolute (cdr (str:split "/" path))) @@ -79,7 +79,7 @@ the directories that appear in the value of that variable." (remove-if-not #'executable-on-system-p (ppcre:split " +" oneliner))) (defun prompt (prompt &key (out-stream *standard-output*) (in-stream *standard-input*)) - (princ prompt out-stream) + (princ prompt out-stream) (force-output out-stream) (read-line in-stream)) ;;; API REQUEST FUNCTIONS |