From 5b93d09a2dd572a30c0b98a5b1ba91390d71c853 Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@gmail.com> Date: Mon, 16 Sep 2013 08:16:47 -0500 Subject: [PATCH] Test for launchpad bug 1225898. --- test/test-around-compile-lambda.script.dont-run | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 test/test-around-compile-lambda.script.dont-run 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 00000000..767a94d5 --- /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 -- GitLab