Try to advice list-packages

advice-list-packages.el

;; (advice-add 'list-packages :around
;;             #'(lambda (orig-fun &rest args)
;;                 (paradox-list-packages args))
;;             '((name . "paradox-list-packages-on-advice")))
;; paradox-list-packages will use list-packages, this will get error.

(defun superbil/list-package ()
  "When `paradox-list-packages' existed, use it."
  (if (functionp 'paradox-list-packages)
      (paradox-list-packages nil)
    (list-packages)))