show more when 'ros install ql-loadable-project'.

lisp/init.lisp

@@ -62,7 +62,9 @@ have the latest asdf, and this file has a workaround for this.
   (second (assoc param (ros-opts) :test 'equal)))
 
 (defun verbose ()
-  (values (parse-integer (ros:opt "verbose"))))
+  (let ((ret (parse-integer (ros:opt "verbose"))))
+    (if (zerop ret)
+        nil ret)))
 
 (or
  (ignore-errors (cl:load (merge-pathnames (format nil "lisp/asdf/~A/asdf.lisp" (opt "asdf")) (opt "homedir"))))

lisp/setup.ros

@@ -72,7 +72,7 @@ exec ros -Q -L sbcl-bin -- $0 "$@"
               (append (directory (make-pathname :defaults *load-pathname* :name :wild :type "ros"))
                       (directory (merge-pathnames "cmds/*.ros" (homedir)))
                       (directory (merge-pathnames "bin/*" (homedir)))))))
-    (unless (zerop (ros:verbose))
+    (when (ros:verbose)
       (format *error-output* "Targets for dump:~%~{~A~%~}~%" dir)
       (force-output *error-output*))
     (unless (ignore-errors

lisp/util-install-quicklisp.lisp

@@ -130,9 +130,13 @@
                             (format *error-output* "Aborted during step [~a/3]." step))))
       (format *error-output* "~&[~a/3] System '~A' found. Loading the system.." (incf step) system)
       (let ((*features* (cons :ros.installing *features*))
-            (*standard-output* (make-broadcast-stream))
-            (*error-output*    (make-broadcast-stream))
-            (*trace-output*    (make-broadcast-stream)))
+            (*standard-output* *standard-output*)
+            (*error-output* *error-output*)
+            (*trace-output* *trace-output*))
+        (when (ros:verbose)
+          (setf *standard-output* (make-broadcast-stream)
+                *error-output* (make-broadcast-stream)
+                *trace-output*(make-broadcast-stream)))
         (if (ql:where-is-system system)
             (progn (ql:quickload system)
                    (ignore-errors(asdf:oos 'asdf:load-op system :force t)))