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