50 |
(last (cons 'a 'b) 2) |
(last (cons 'a 'b) 2) |
51 |
(a . b)) |
(a . b)) |
52 |
|
|
53 |
(deftest last.11 |
(deftest last.order.1 |
54 |
(let ((i 0) x y) |
(let ((i 0) x y) |
55 |
(values |
(values |
56 |
(last (progn (setf x (incf i)) (list 'a 'b 'c 'd)) |
(last (progn (setf x (incf i)) (list 'a 'b 'c 'd)) |
58 |
i x y)) |
i x y)) |
59 |
(c d) 2 1 2) |
(c d) 2 1 2) |
60 |
|
|
61 |
|
(deftest last.order.2 |
62 |
|
(let ((i 0)) |
63 |
|
(values (last (progn (incf i) (list 'a 'b 'c 'd))) i)) |
64 |
|
(d) 1) |
65 |
|
|
66 |
(deftest last.error.1 |
(deftest last.error.1 |
67 |
(classify-error (last (list 'a 'b 'c) -1)) |
(classify-error (last (list 'a 'b 'c) -1)) |
68 |
type-error) |
type-error) |