58 |
(catch-type-error (butlast 'a 0)) |
(catch-type-error (butlast 'a 0)) |
59 |
type-error) |
type-error) |
60 |
|
|
61 |
|
(deftest butlast-8 |
62 |
|
(classify-error (butlast)) |
63 |
|
program-error) |
64 |
|
|
65 |
|
(deftest butlast-9 |
66 |
|
(classify-error (butlast '(a b c) 3 3)) |
67 |
|
program-error) |
68 |
|
|
69 |
(deftest nbutlast-1 |
(deftest nbutlast-1 |
70 |
(let ((x (list 'a 'b 'c 'd 'e))) |
(let ((x (list 'a 'b 'c 'd 'e))) |
71 |
(let ((y (cdr x)) |
(let ((y (cdr x)) |
133 |
(deftest nbutlast-13 |
(deftest nbutlast-13 |
134 |
(catch-type-error (nbutlast (list 'a) -100.0)) |
(catch-type-error (nbutlast (list 'a) -100.0)) |
135 |
type-error) |
type-error) |
136 |
|
|
137 |
|
(deftest nbutlast-14 |
138 |
|
(classify-error (nbutlast)) |
139 |
|
program-error) |
140 |
|
|
141 |
|
(deftest nbutlast-15 |
142 |
|
(classify-error (nbutlast (list 'a 'b 'c) 3 3)) |
143 |
|
program-error) |