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

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

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