From 04eec3a4532b7426c1cdee08b95f3ae658d07ae5 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 17 Aug 2008 12:13:03 +0200
Subject: init.lisp: Test QUOTE.

---
 init.lisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'init.lisp')

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")
-- 
cgit v1.2.3