;; 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)))