19 |
(dolist (parent parents) (assert (symbolp parent))) |
(dolist (parent parents) (assert (symbolp parent))) |
20 |
|
|
21 |
(let ((name (symbol-name name-symbol))) |
(let ((name (symbol-name name-symbol))) |
22 |
`(eval-when #+gcl (load eval compile) |
`(eval-when (:load-toplevel :compile-toplevel :execute) |
23 |
#-gcl (:load-toplevel :compile-toplevel :execute) |
(report-and-ignore-errors (eval '(define-condition ,name-symbol ,parents |
24 |
(ignore-errors (eval '(define-condition ,name-symbol ,parents |
,slot-specs ,@options))) |
|
,slot-specs ,@options))) |
|
25 |
,@(loop for parent in (adjoin 'condition parents) |
,@(loop for parent in (adjoin 'condition parents) |
26 |
collect |
collect |
27 |
`(deftest ,(make-def-cond-name name "IS-SUBTYPE-OF/" parent) |
`(deftest ,(make-def-cond-name name "IS-SUBTYPE-OF/" parent) |