63 |
i)))) |
i)))) |
64 |
new-incf2 |
new-incf2 |
65 |
(3 #(0 0 3 0 0) 3)) |
(3 #(0 0 3 0 0) 3)) |
66 |
|
|
67 |
|
(deftest define-modify-macro.error.1 |
68 |
|
(classify-error (define-modify-macro)) |
69 |
|
program-error) |
70 |
|
|
71 |
|
(deftest define-modify-macro.error.2 |
72 |
|
(classify-error (define-modify-macro dfm-error-1)) |
73 |
|
program-error) |
74 |
|
|
75 |
|
(deftest define-modify-macro.error.2 |
76 |
|
(classify-error (define-modify-macro dfm-error-2 ())) |
77 |
|
program-error) |
78 |
|
|
79 |
|
(deftest define-modify-macro.error.3 |
80 |
|
(classify-error (define-modify-macro dfm-error-2 () nil "Documentation" |
81 |
|
"extra illegal argument")) |
82 |
|
program-error) |
83 |
|
|