(let ((root (asdf:system-source-directory :txt2web)))
  (asdf:initialize-source-registry
   `(:source-registry
     :ignore-inherited-configuration
     (:directory ,root)
     (:tree ,(format nil "~A~A" root ".qlot/dists")))))

(asdf:load-system :txt2web)
(uiop:register-image-restore-hook 'txt2web::entry-point-no-args nil)
(uiop:dump-image "txt2web" :executable t)