cosmetic: move process-output before first use

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>

grovel/invoke.lisp

@@ -57,6 +57,13 @@
               (integer   ret))
             "<see above>")))
 
+(defun process-output (process-stream)
+  (with-open-stream (process-stream process-stream)
+    (with-output-to-string (str)
+      (loop for char = (read-char process-stream nil)
+            while char
+            do (write-char char str)))))
+
 #+ecl
 (defun %invoke (command arglist)
   (multiple-value-bind (output-stream exit-code)
@@ -67,13 +74,6 @@
     (values exit-code
             (process-output output-stream))))
 
-(defun process-output (process-stream)
-  (with-open-stream (process-stream process-stream)
-    (with-output-to-string (str)
-      (loop for char = (read-char process-stream nil)
-            while char
-            do (write-char char str)))))
-
 #+(or cmu scl)
 (defun %invoke (command arglist)
   (let* ((process (ext:run-program command arglist