3 changed files with 7 additions and 23 deletions
@ -1,13 +1,4 @@
@@ -1,13 +1,4 @@
|
||||
(format t "==> Loading Quicklisp~%") |
||||
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" |
||||
(user-homedir-pathname)))) |
||||
(unless quicklisp-init |
||||
(error "Quicklisp not installed. Consult https://www.quicklisp.org/beta/")) |
||||
(load quicklisp-init)) |
||||
;; HACK(eta): We need to make sure Quicklisp knows how to find this system, sigh. |
||||
(push (uiop/os:getcwd) ql:*local-project-directories*) |
||||
(format t "==> Loading intertube system~%") |
||||
(ql:quickload :intertube) |
||||
(load "deploy-common.lisp") |
||||
(format t "==> Creating intertube-web executable~%") |
||||
(require :sb-sprof) |
||||
(sb-ext:save-lisp-and-die "./intertube-web" :toplevel #'intertube-web::main :executable t) |
||||
|
Loading…
Reference in new issue