1438 |
(loop for e on plist by #'cddr |
(loop for e on plist by #'cddr |
1439 |
when (eql (car e) prop) |
when (eql (car e) prop) |
1440 |
collect (cadr e))) |
collect (cadr e))) |
1441 |
|
|
1442 |
|
(defmacro def-macro-test (test-name macro-form) |
1443 |
|
(let ((macro-name (car macro-form))) |
1444 |
|
(assert (symbolp macro-name)) |
1445 |
|
`(deftest ,test-name |
1446 |
|
(values |
1447 |
|
(eqlt (classify-error (funcall (macro-function ',macro-name))) |
1448 |
|
'program-error) |
1449 |
|
(eqlt (classify-error (funcall (macro-function ',macro-name) |
1450 |
|
',macro-form)) |
1451 |
|
'program-error) |
1452 |
|
(eqlt (classify-error (funcall (macro-function ',macro-name) |
1453 |
|
',macro-form nil nil)) |
1454 |
|
'program-error)) |
1455 |
|
t t t))) |