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 (load eval compile) |
`(eval-when #+gcl (load eval compile) |
23 |
|
#-gcl (:load-toplevel :compile-toplevel :execute) |
24 |
(ignore-errors (eval '(define-condition ,name-symbol ,parents |
(ignore-errors (eval '(define-condition ,name-symbol ,parents |
25 |
,slot-specs ,@options))) |
,slot-specs ,@options))) |
26 |
,@(loop for parent in (adjoin 'condition parents) |
,@(loop for parent in (adjoin 'condition parents) |