diff --git a/tests/issues.lisp b/tests/issues.lisp index b02fc1266886d13ed1a6771d2f3fe786274ae9ba..40a2a96f6b1a608b0b22866ef3d48e53240142c2 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 0000000000000000000000000000000000000000..d924295797b9d8062458a5bce9b49d63f3de5d3a --- /dev/null +++ b/tests/resources/issue-30.lisp @@ -0,0 +1,4 @@ +(defun foo () + (print "Hello world")) + +(describe 'foo)