From f7312cc286960e65dac0fa37e0aa099e24cecdf1 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Mon, 30 Jun 2003 23:47:15 +0000 Subject: [PATCH] butlast and nbutlast should take positive bignums on proper lists. --- ansi-tests/butlast.lsp | 4 ++++ ansi-tests/nbutlast.lsp | 4 ++++ 2 files changed, 8 insertions(+) diff --git a/ansi-tests/butlast.lsp b/ansi-tests/butlast.lsp index b64f809c..f5690a14 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 a3cdf930..cd2c0dff 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 -- GitLab