(ld "defpkg.lisp") (certify-book "sort" 3)