From 1d8827f9ca76da9d69d81415d7563408b026ef70 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Sun, 20 Feb 2022 10:25:38 -0600
Subject: test run of adding new oneliners

---
 src/lib.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

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
-- 
cgit v1.2.3