Commit 08dc967f authored by pfdietz's avatar pfdietz
Browse files

LAST should take positive bignums as well as fixnums.

parent 21943172
......@@ -45,6 +45,16 @@
(last (cons 'a 'b) 2)
(a . b))
(deftest last.11
(let ((x '(a b c)))
(eqt (last x (1+ most-positive-fixnum)) x))
t)
(deftest last.12
(let ((x '(a b c . d)))
(eqt (last x (1+ most-positive-fixnum)) x))
t)
(deftest last.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