(defun compile-and-load ()
  (compile-file "./test.lisp")
  (load "./test.o")
  (testfile))
