From 5524c034fdd4894a33b5a41012168be0e9d55a79 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Wed, 7 Sep 2016 20:29:38 -0700
Subject: [PATCH] Add test for issue #30.

---
 tests/issues.lisp             | 10 ++++++++++
 tests/resources/issue-30.lisp |  4 ++++
 2 files changed, 14 insertions(+)
 create mode 100644 tests/resources/issue-30.lisp

diff --git a/tests/issues.lisp b/tests/issues.lisp
index b02fc1266..40a2a96f6 100644
--- a/tests/issues.lisp
+++ b/tests/issues.lisp
@@ -298,3 +298,13 @@
 	(assert-eql (length in-string) (length out-string))
 	(assert-equal in-string out-string)))))
 
+
+
+(define-test issue.30
+    (:tag :issues)
+  (let* ((test-file #p"resources/issue-30.lisp")
+	 (fasl-file (compile-file-pathname test-file)))
+    ;; Compiling and loading the test file should succeed without
+    ;; errors.
+    (assert-equal (list fasl-file nil nil)
+		  (compile-file test-file :load t))))
diff --git a/tests/resources/issue-30.lisp b/tests/resources/issue-30.lisp
new file mode 100644
index 000000000..d92429579
--- /dev/null
+++ b/tests/resources/issue-30.lisp
@@ -0,0 +1,4 @@
+(defun foo ()
+  (print "Hello world"))
+
+(describe 'foo)
-- 
GitLab