-
Notifications
You must be signed in to change notification settings - Fork 0
/
make-image.lisp.in
21 lines (17 loc) · 1.12 KB
/
make-image.lisp.in
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
(in-package #:cl-user)
(load "load-thesiswm.lisp")
(thesiswm:set-module-dir "@MODULE_DIR@")
(when (uiop:version<= "3.1.5" (asdf:asdf-version))
;; We register StumpWM and its dependencies as immutable, to stop ASDF from
;; looking for their source code when loading modules.
(uiop:symbol-call '#:asdf '#:register-immutable-system :thesiswm)
(dolist (system-name (uiop:symbol-call '#:asdf '#:system-depends-on (asdf:find-system :thesiswm)))
(uiop:symbol-call '#:asdf '#:register-immutable-system system-name)))
(sb-ext:save-lisp-and-die "thesiswm" :toplevel (lambda ()
;; asdf requires sbcl_home to be set, so set it to the value when the image was built
(alexandria:when-let ((home #.(sb-ext:posix-getenv "SBCL_HOME")))
(sb-posix:putenv (format nil "SBCL_HOME=~A" home)))
(thesiswm:thesiswm)
0)
:executable t
:purify t)