diff --git a/test/test-around-compile-lambda.script.dont-run b/test/test-around-compile-lambda.script.dont-run new file mode 100644 index 0000000000000000000000000000000000000000..767a94d5d1a2226dbef596cc0826108f90abee84 --- /dev/null +++ b/test/test-around-compile-lambda.script.dont-run @@ -0,0 +1,12 @@ +;;; -*- Lisp -*- + + +(progn + (def-test-system test-around-compile-lambda + :around-compile (lambda (thunk) + (let ((*read-base* 2)) + (funcall thunk))) + ;; :depends-on ((:version :asdf "2.017.18")) ; no :around-compile before that. + :components ((:file "test"))) + (load-system 'test-around-compile-lambda :force t) + (assert (= 3 (funcall 'add10 1)))) ;; add10 must have been compiled in base 2