14 lines
443 B
Common Lisp
14 lines
443 B
Common Lisp
|
(require 'asdf)
|
||
|
|
|
||
|
|
(let ((home (or (uiop:getenvp "QUICKLISP_HOME")
|
||
|
|
(concatenate 'string (uiop:getenvp "HOME") "/quicklisp"))))
|
||
|
|
(load (concatenate 'string home "/setup.lisp")))
|
||
|
|
|
||
|
|
(ql:quickload "lcp/test")
|
||
|
|
(setf uiop:*image-entry-point*
|
||
|
|
(lambda ()
|
||
|
|
(let ((prove:*default-reporter* :fiveam))
|
||
|
|
(unless (prove:run-test-package :lcp-test)
|
||
|
|
(uiop:quit 1)))))
|
||
|
|
(uiop:dump-image "test_lcp" :executable t)
|