From f6ef23a5f5367ac2bf8ff8d946e6554fbd77febc Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sat, 16 Aug 2008 18:40:33 +0200
Subject: init.lisp: Add a function call test.

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

(limited to 'init.lisp')

diff --git a/init.lisp b/init.lisp
index 73587d5..0891c5e 100644
--- a/init.lisp
+++ b/init.lisp
@@ -22,6 +22,8 @@
 (ns-log (test 'a 'b 'c))
 (%fset 'test (compile '(sys::%lambda args args)))
 (ns-log (test 1 2 3))
+(%fset 'test2 (compile '(sys::%lambda args (test args))))
+(ns-log (test2 1 2 3))
 
 ;; (load "util.lisp")
 ;; (load "defun-0.lisp")
-- 
cgit v1.2.3