From ee28fbeb32566fd64492e0aa387635b3f451d6c0 Mon Sep 17 00:00:00 2001
From: Bart Botta <00003b@gmail.com>
Date: Fri, 21 Nov 2008 14:30:53 -0600
Subject: [PATCH] test POP

---
 test/test.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/test/test.lisp b/test/test.lisp
index 952d7ea..fc1b18e 100644
--- a/test/test.lisp
+++ b/test/test.lisp
@@ -151,7 +151,10 @@
                                  ((> 3 2) "-3>2-")
                                  (nil "-nil-")
                                  (t "-t-"))))
-
+            (let ((c2 (cons "a" (cons "b" nil))))
+              (%set-local str (+ str " || pop1 =" (pop c2)))
+              (%set-local str (+ str " || pop2 = (" (car c2) " . " (cdr c2) ")"))
+)
             (%set-local str (+ str " || dolist=" (test-dolist)))
 )
 
-- 
2.11.4.GIT