10 lines
396 B
Common Lisp
10 lines
396 B
Common Lisp
#-quicklisp
|
|
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
|
|
(user-homedir-pathname))))
|
|
(when (probe-file quicklisp-init)
|
|
(load quicklisp-init)))
|
|
(ql:quickload :loop)
|
|
(sb-ext:save-lisp-and-die #P"loop"
|
|
:toplevel #'loop:main
|
|
:executable t
|
|
:save-runtime-options t)
|