From 375d316841176c2216baf43f79c2ab07546dd542 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Wed, 28 May 2003 13:19:05 +0000
Subject: [PATCH] Added test suggested by Peter Graves.

---
 ansi-tests/append.lsp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/ansi-tests/append.lsp b/ansi-tests/append.lsp
index 78634cf3..1d3d8242 100644
--- a/ansi-tests/append.lsp
+++ b/ansi-tests/append.lsp
@@ -40,6 +40,14 @@
   (append-6-body)
   0)
 
+;;; Test suggested by Peter Graves
+(deftest append.7
+  (let ((x (list 'a 'b 'c 'd)))
+    (eq (append x nil) x))
+  nil)
+
+;;; Order of evaluation tests
+
 (deftest append.order.1
   (let ((i 0) x y z)
     (values
-- 
GitLab