12 lines
306 B
Common Lisp
12 lines
306 B
Common Lisp
;; run.lisp
|
|
;; registers current dir and loads wh-engine
|
|
|
|
(push (truename "./") asdf:*central-registry*)
|
|
(asdf:load-system 'wh-engine)
|
|
|
|
(format t "**** wh-engine READY! ****~%")
|
|
|
|
(defun run-test ()
|
|
(wh-engine:install-systems :wh-engine/input)
|
|
(wh-engine:register-test-scene)
|
|
(eval '(wh-engine:run)))
|