init.lisp: Test the CONS intrinsic.

1 files changed, 2 insertions, 0 deletions

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")