57 |
(values indicator value tail)))) |
(values indicator value tail)))) |
58 |
g h (g h a c)) |
g h (g h a c)) |
59 |
|
|
60 |
|
(deftest get-properties.error.1 |
61 |
|
(classify-error (get-properties)) |
62 |
|
program-error) |
63 |
|
|
64 |
|
(deftest get-properties.error.2 |
65 |
|
(classify-error (get-properties nil)) |
66 |
|
program-error) |
67 |
|
|
68 |
|
(deftest get-properties.error.3 |
69 |
|
(classify-error (get-properties nil nil nil)) |
70 |
|
program-error) |
71 |
|
|
72 |
|
|
73 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
74 |
;;; getf |
;;; getf |
232 |
p)) |
p)) |
233 |
(x) (a (x))) |
(x) (a (x))) |
234 |
|
|
235 |
|
(deftest getf.error.1 |
236 |
|
(classify-error (getf)) |
237 |
|
program-error) |
238 |
|
|
239 |
|
(deftest getf.error.2 |
240 |
|
(classify-error (getf nil)) |
241 |
|
program-error) |
242 |
|
|
243 |
|
(deftest getf.error.3 |
244 |
|
(classify-error (getf nil nil nil nil)) |
245 |
|
program-error) |
246 |
|
|
247 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
248 |
;;; remf |
;;; remf |
249 |
|
|