unix-spawn.cl

; either input works in SBCL
;(load "~/quicklisp/setup.lisp")
;(ql:quickload "asdf")
(require "asdf")

;(print (asdf:asdf-version))

; of course "cat" is superfulous here,
; but I just wanted to try out piping data.
(defparameter cat
    (uiop:launch-program
        '("cat" "categories.txt")
        :output :stream))

(defparameter grep
    (uiop:launch-program
        '("grep" "-n" "matter")
        :input (uiop:process-info-output cat)
        :output :stream))

(uiop:wait-process grep)

(print (read-line (uiop:process-info-output grep)))