diff --git a/ansi-tests/butlast.lsp b/ansi-tests/butlast.lsp index b64f809cab54356e4b14d606ed1808238904cae1..f5690a146274d08b842d72cf93d5116425f26932 100644 --- a/ansi-tests/butlast.lsp +++ b/ansi-tests/butlast.lsp @@ -45,6 +45,10 @@ (butlast (copy-tree '(a b c . d)) 1) (a b)) +(deftest butlast.6 + (butlast '(a b c d e) (1+ most-positive-fixnum)) + nil) + (deftest butlast.order.1 (let ((i 0) x y) (values diff --git a/ansi-tests/nbutlast.lsp b/ansi-tests/nbutlast.lsp index a3cdf93027e8ad75d6d3b2f22628b8e787f39ca0..cd2c0dff257b6e2c83949b36b63328daab1594e2 100644 --- a/ansi-tests/nbutlast.lsp +++ b/ansi-tests/nbutlast.lsp @@ -43,6 +43,10 @@ (nbutlast (list 'a)) nil) +(deftest nbutlast.7 + (nbutlast (list 'a 'b 'c 'd) (1+ most-positive-fixnum)) + nil) + (deftest nbutlast.order.1 (let ((i 0) x y) (values