tools/buildtest.lisp

   1 ;; buildtest.lisp
   2 ;;
   3 ;; Commentary:
   4 ;;
   5 ;; Attempt to load a system, report outcome to the OS.
   6 ;; Used in git_hooks/pre-commit
   7 ;;
   8 ;; Usage:
   9 ;;
  10 ;;     $ lisp --eval '(progn (load "buildtest.lisp") (buildtest SYSTEM))'
  11 ;;
  12 ;; This assumes that SYSTEM's definition is in the CWD and that lisp has ASDF.
  13 ;;
  14 ;; Code:
  15
  16 (defun exit (code)
  17   #+ccl (quit code)
  18   #+clisp (ext:exit code)
  19   #+ecl (ext:exit code)
  20   #+sbcl (sb-unix:unix-exit code))
  21
  22 (eval-when (:load-toplevel :compile-toplevel)
  23   (unless (find-package :asdf)
  24     (format t "ASDF is required to run this script.")
  25     (exit 1)))
  26
  27 (defun buildtest (sys)
  28   (let* ((null-stream (make-broadcast-stream))
  29          (*standard-output* null-stream)
  30          (*trace-output* null-stream))
  31     (handler-case (asdf:operate 'asdf:load-op sys)
  32       (error (c) (progn (format *error-output* "Failed: ~A~%" c)
  33                         (exit 1)))))
  34
  35   (exit 0))