Fix #111, error with docstrings containing single quotes

[jscl.git] / tests / defun.lisp

diff --git a/tests/defun.lisp b/tests/defun.lisp
new file mode 100644 (file)
index 0000000..39f945e
--- /dev/null
+++ b/tests/defun.lisp
@@ -0,0 +1,4 @@
+;;;; Tests for DEFUN
+
+;;; Regression test for #111
+(test (eql (defun foo () "foo's" ()) 'foo))