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