commit 02fda5b5bc6564db46dde5a1a2e2f5e71a75321d Solene Rapenne <solene@perso.pw> 2017-12-31 19:03:03 +0100 Fetch and display binary file when no redirection
clic.lisp | 20 +++++++------------- 1 file changed, 7 insertions(+), 13 deletions(-)
diff --git a/clic.lisp b/clic.lisp index dfa64cd..a1e66a0 100644 --- a/clic.lisp +++ b/clic.lisp @@ -98,20 +98,16 @@ ;;;; END ANSI colors ;;;; is the output interactive or a pipe ? - (defun ttyp() "return t if the output is a terminal" ;; we use this variable in case we don't want to be interactive ;; like when we use a cmd arg to get an image - (if *not-interactive* - nil - (progn - #+sbcl - (interactive-stream-p *standard-output*) - #+ecl - (if (= 1 (c-ttyp)) - t - nil)))) + #+sbcl + (interactive-stream-p *standard-output*) + #+ecl + (if (= 1 (c-ttyp)) + t + nil)) (defun copy-array(from) "return a new array containing the same elements as the parameter" @@ -630,9 +626,7 @@ ;; if we don't ask a menu, not going interactive (if (not (string= "1" (location-type destination))) ;; not interactive - (progn - (setf *not-interactive* t) - (visit destination)) + (visit destination) ;; if user want to drop from first page we need ;; to look it here