50 |
(last (cons 'a 'b) 2) |
(last (cons 'a 'b) 2) |
51 |
(a . b)) |
(a . b)) |
52 |
|
|
53 |
(deftest last-11 |
(deftest last.error.1 |
54 |
(catch-type-error (last (list 'a 'b 'c) -1)) |
(classify-error (last (list 'a 'b 'c) -1)) |
55 |
type-error) |
type-error) |
56 |
|
|
57 |
(deftest last-12 |
(deftest last.error.2 |
58 |
(catch-type-error (last (list 'a 'b 'c) 'a)) |
(classify-error (last (list 'a 'b 'c) 'a)) |
59 |
type-error) |
type-error) |
60 |
|
|
61 |
(deftest last-13 |
(deftest last.error.3 |
62 |
(catch-type-error (last (list 'a 'b 'c) 10.0)) |
(classify-error (last (list 'a 'b 'c) 10.0)) |
63 |
type-error) |
type-error) |
64 |
|
|
65 |
(deftest last-14 |
(deftest last.error.4 |
66 |
(catch-type-error (last (list 'a 'b 'c) -10.0)) |
(classify-error (last (list 'a 'b 'c) -10.0)) |
67 |
type-error) |
type-error) |
68 |
|
|
69 |
(deftest last-15 |
(deftest last.error.5 |
70 |
(catch-type-error (last (list 'a 'b 'c) #\w)) |
(classify-error (last (list 'a 'b 'c) #\w)) |
71 |
type-error) |
type-error) |
72 |
|
|
73 |
(deftest last-16 |
(deftest last.error.6 |
74 |
(classify-error (last)) |
(classify-error (last)) |
75 |
program-error) |
program-error) |
76 |
|
|
77 |
(deftest last-17 |
(deftest last.error.7 |
78 |
(classify-error (last '(a b c) 2 nil)) |
(classify-error (last '(a b c) 2 nil)) |
79 |
program-error) |
program-error) |
80 |
|
|
81 |
|
(deftest last.error.8 |
82 |
|
(classify-error (locally (last (list 'a 'b 'c) 'a) t)) |
83 |
|
type-error) |