Commit f7312cc2 authored by pfdietz's avatar pfdietz
Browse files

butlast and nbutlast should take positive bignums on proper lists.

parent 08dc967f
......@@ -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
......
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment