203 |
(duplicate-option :method-class) |
(duplicate-option :method-class) |
204 |
(initarg :method-class `',(cadr option)))) |
(initarg :method-class `',(cadr option)))) |
205 |
(:method |
(:method |
206 |
(error |
; (error |
207 |
"DEFGENERIC doesn't support the :METHOD option yet.")))) |
; "DEFGENERIC doesn't support the :METHOD option yet.")))) |
208 |
|
(push `(defmethod ,function-specifier ,@(cdr option)) |
209 |
|
methods)))) |
210 |
|
; (t ;unsuported things must get a 'program-error |
211 |
|
; (simple-program-error "Unsupported option ~S." option)))) |
212 |
|
|
213 |
(let ((declarations (initarg :declarations))) |
(let ((declarations (initarg :declarations))) |
214 |
(when declarations (initarg :declarations `',declarations))))) |
(when declarations (initarg :declarations `',declarations))))) |
215 |
`(progn |
`(progn |