Function: PIPE->LIST

Source

(defun pipe->list (pipe)
  (labels ((force (p)
	     (if (pipe-null-p p)
		 empty-pipe
		 (cons (head p)
		       (force (tail p))))))
    (force pipe)))