init.lisp: Test QUOTE.

1 files changed, 4 insertions, 0 deletions

diff --git a/init.lisp b/init.lisp
index b5454e6..70a5aea 100644
--- a/init.lisp
+++ b/init.lisp
@@ -30,6 +30,10 @@
                                                  (y args))
                                              args x y))))
 (ns-log (test5 1 2 3))
+(%fset 'test6 (compile '(sys::%lambda args (let ((x 'value-x)
+                                                 (y 'value-y))
+                                             args x y))))
+(ns-log (test6 1 2 3))
 
 ;; (load "util.lisp")
 ;; (load "defun-0.lisp")