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