(t (aver (string-equal (car (last dir)) "output"))
(aver (string-equal (pathname-name untruename) "stuff-groveled-from-headers"))
(aver (string-equal (pathname-type untruename) "lisp"))
(t (aver (string-equal (car (last dir)) "output"))
(aver (string-equal (pathname-name untruename) "stuff-groveled-from-headers"))
(aver (string-equal (pathname-type untruename) "lisp"))