diff --git a/ansi-tests/append.lsp b/ansi-tests/append.lsp index 78634cf3ed32e0c18e7de7bcdc502f49efb79ad5..1d3d82424554910dcd0c80af9ddbe3169a94bd72 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