diff options
Diffstat (limited to 'build-app.lisp')
| -rw-r--r-- | build-app.lisp | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/build-app.lisp b/build-app.lisp index c95d163..8be3639 100644 --- a/build-app.lisp +++ b/build-app.lisp @@ -135,8 +135,7 @@ than the users." ((getopt :long-name "unlock") (cli::unlock-item hist-number)) (t - (format t "TBD: Going to run command ~a with arguments ~a~%" - hist-number (rest arguments)))) + (cli::run-item hist-number (rest arguments)))) (uiop:quit)) ;; otherwise search for oneliners (cli::search-for-oneliners arguments @@ -146,8 +145,7 @@ than the users." (help))) (uiop:quit)) (error (e) - (format *error-output* "ERROR: ~a~%" e) - (help) + (format *error-output* "~%ERROR: ~a~%" e) (uiop:quit)))) ;;; DUMP EXECUTABLE |