Method: (INPUT-FILES PUBLISH-OP SYSTEM)

Source

(defmethod input-files ((op publish-op) (system asdf:system))
  (let ((x (or (input-file op) (asdf:system-source-file system))))
    (and x (list x))))