;;; -*- Lisp -*- (load "script-support.lisp") (load-asdf) (defun call-in-base-2 (thunk) (let ((*read-base* 2)) (funcall thunk))) (quit-on-error (defsystem 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