Function: PIPE-NULL-P

Source

(defun pipe-null-p (p)
  (or (eql p empty-pipe)
      (null p)))