Function: PIPE-APPEND

Source

(defun pipe-append (p1 p2)
  (cond ((pipe-null-p p1) p2)
	((pipe-null-p p2) p1)
	 (t (make-pipe (head p1)
		       (pipe-append (tail p1)
				    p2)))))