1  (in-package :cl-user)
 2  
 3  (require "remote-debugger-client")
 4  (require "tty-inspect")
 5  (load "~/quicklisp/setup.lisp")
 6  (ql:quickload :ami)
 7  
 8  ;; Load the sites before delivering, since we won't be able to
 9  ;; load them afterwards.
10  (ami.helpers:load-sites)
11  
12  (multiple-value-bind (sec min hr day mon yr dow dst-p tz)
13      (get-decoded-time)
14    (let ((commit (uiop:run-program '("git" "rev-parse" "--short" "HEAD")
15                                    :output '(:string :stripped t))))
16      (setf ami.config:*build* 
17            (format nil "~4,'0d-~2,'0d-~2,'0d (~a)" yr mon day commit))))
18  
19  (lw:deliver #'ami:start-ami "./ami" 0
20              :multiprocessing t
21              :startup-bitmap-file nil
22              :delete-packages '(ql)
23              :keep-pretty-printer t)