390b6c1557
Reviewers: mtomic, teon.banek Reviewed By: teon.banek Subscribers: pullbot Differential Revision: https://phabricator.memgraph.io/D1947
16 lines
531 B
Common Lisp
16 lines
531 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" :silent t)
|
|
(setf uiop:*image-entry-point*
|
|
(lambda ()
|
|
(let ((*package* (find-package :lcp.test))
|
|
(prove:*default-reporter* :fiveam))
|
|
(prove:plan nil)
|
|
(unless (prove:run-test-package :lcp.test)
|
|
(uiop:quit 1)))))
|
|
(uiop:dump-image "test_lcp" :executable t)
|