From f3e77debaacf3e967c046d77169c529790ff1fc9 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 17 Aug 2008 15:19:29 +0200
Subject: init.lisp: Test the CONS intrinsic.

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

diff --git a/init.lisp b/init.lisp
index b7b9d99..90a4911 100644
--- a/init.lisp
+++ b/init.lisp
@@ -41,6 +41,8 @@
 (%fset 'test9 (compile '(sys::%lambda args (if args 'some-args 'no-args))))
 (ns-log (test9))
 (ns-log (test9 1 2 3))
+(%fset 'test10 (compile '(sys::%lambda args (cons 1 2))))
+(ns-log (test10))
 
 ;; (load "util.lisp")
 ;; (load "defun-0.lisp")
-- 
cgit v1.2.3