test-around-compile.script 422 Bytes
Newer Older
1
;;; -*- Lisp -*-
2

3

4

5 6 7 8
(defun call-in-base-2 (thunk)
  (let ((*read-base* 2))
    (funcall thunk)))

9
(progn
10 11 12 13 14 15
  (def-test-system test-around-compile
    :around-compile call-in-base-2
    ;; :depends-on ((:version :asdf "2.017.18")) ; no :around-compile before that.
    :components ((:file "test")))
  (load-system 'test-around-compile :force t)
  (assert (= 3 (funcall 'add10 1)))) ;; add10 must have been compiled in base 2