From d2d3e1e4f24d95d9f8bf6f0fd2e68708a9ed4656 Mon Sep 17 00:00:00 2001
From: James Cash <james.nvc@gmail.com>
Date: Sun, 14 Sep 2008 20:24:06 -0400
Subject: [PATCH] Adding more tests to extra/lisp

---
 extra/lisp/lisp-tests.factor | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor
index 48f6419d30..6e586bc657 100644
--- a/extra/lisp/lisp-tests.factor
+++ b/extra/lisp/lisp-tests.factor
@@ -84,4 +84,12 @@ IN: lisp.test
         <LISP ((lambda (x y) (if x (+ 1 y) (+ 2 y))) #t 3) LISP>
     ] unit-test
     
+    {  { 3 3 4 } } [
+        <LISP (setq foo (lambda (x y &rest z)
+                            (cons (+ x y) z)))
+
+              (foo 1 2 3 4)
+        LISP> cons>seq
+    ] unit-test
+    
 ] with-interactive-vocabs