build.lisp
10 lines
| 368 B
| text/x-common-lisp
|
CommonLispLexer
r50 | (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) | ||||