Bare bones unit test framework, taken directly from Practical Common Lisp