Function: PUBLISH-SYSTEM-QBOOK

Source

(defun publish-system-qbook (system-name generator-name &rest options)
  (let ((generator (apply #'make-instance generator-name
                          options)))
    (publish-qbook (asdf:system-source-file system-name) generator)))