diff options
| author | Colin Okay <okay@toyful.space> | 2022-03-12 19:07:19 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-03-12 19:07:19 -0600 |
| commit | 50df94fd2a0fce7a2499a8ceafd6034adc69779e (patch) | |
| tree | bf9a19a2edf9f2eecf33b9177f99b8e20e73e880 /lib/client.lisp | |
| parent | b053af5357bdbcc556e0a54723feceed5091f535 (diff) | |
bugfix: s/defstruct/defplist. made defplist
Diffstat (limited to 'lib/client.lisp')
| -rw-r--r-- | lib/client.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/client.lisp b/lib/client.lisp index 7ee9ebc..fe29932 100644 --- a/lib/client.lisp +++ b/lib/client.lisp @@ -84,8 +84,8 @@ running the body. If such a oneliner can be found." (defun bind-vars-and-run-oneliner (ol args &optional force-clip) (let* ((oneliner (oneliner-oneliner ol)) (runstyle (oneliner-runstyle ol)) - (pos-args (get-positional-arguments oneliner)) - (named-args (get-named-arguments oneliner))) + (pos-args (get-positional-arguments ol)) + (named-args (get-named-arguments ol))) (when (or (not (oneliner-isflagged ol)) (y-or-n-p "This oneliner is flagged. Are you sure you want to run it?")) ;; substitute positional args @@ -113,7 +113,7 @@ running the body. If such a oneliner can be found." (princ ol) (princ #\newline) (princ #\newline) - (run-with-shell ol :shell-name (or (shell) "bash"))))) + (run-with-shell ol :shell-name (or (shell) "bash") :await-output-p *ol-output-timeout*)))) ;;; ADDING ONELINERS |