2021-11-25 22:28:50 +00:00
|
|
|
;; run.lisp
|
|
|
|
|
;; registers current dir and loads wh-engine
|
|
|
|
|
|
|
|
|
|
(push (truename "./") asdf:*central-registry*)
|
|
|
|
|
(asdf:load-system 'wh-engine)
|
|
|
|
|
|
|
|
|
|
(format t "**** wh-engine READY! ****~%")
|
2022-02-26 20:19:04 +00:00
|
|
|
|
|
|
|
|
(defun run-test ()
|
|
|
|
|
(wh-engine:install-systems :wh-engine/input)
|
|
|
|
|
(wh-engine:register-test-scene)
|
|
|
|
|
(eval '(wh-engine:run)))
|
