(defmethod asdf:perform ((op publish-op) (system asdf:system)) (publish-qbook (first (input-files op system)) (generator op)))