build.lisp (772B)
1 #!/bin/sh 2 #| 3 exec sbcl --dynamic-space-size 4096 --script "build.lisp" 4 |# 5 (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" 6 (user-homedir-pathname)))) 7 (when (probe-file quicklisp-init) 8 (load quicklisp-init))) 9 (push (probe-file #P".") asdf:*central-registry*) 10 11 (sb-ext:restrict-compiler-policy 'speed 3 3) 12 (push :release *features*) 13 14 (ql:quickload :aoc) 15 (loop for day from 1 to 25 16 for system-name = (format nil "aoc/day-~A" day) 17 for system = (asdf:find-system system-name nil) 18 when system 19 do (ql:quickload system-name)) 20 (sb-ext:save-lisp-and-die "aoc" 21 :toplevel #'aoc:main 22 :executable t 23 :save-runtime-options t)