test-around-compile.script 259 Bytes
Newer Older
1 2 3 4 5
;;; -*- Lisp -*-
(load "script-support.lisp")
(load-asdf)

(quit-on-error
6 7
  (setf *central-registry* '(*default-pathname-defaults*))
  (load-system 'test-around-compile :force t)
8
  (assert (= 3 (funcall 'add10 1)))) ;; add10 must have been compiled in base 2