20 Aug
2008
20 Aug
'08
10:04 a.m.
"Tobias C. Rittweiler" tcr@freebits.de writes:
(defmethod compute-enriched-decoded-arglist :around (operator-form argument-forms) (unless (find-package "DTO") (return (call-next-method))) (let ((dto-method-arglist (dto:method-lambda-list operator-form))) (if dto-method-arglist (decode-arglist dto-method-arglist) (call-next-method))))
Of course, you can't use the symbol dto:method-lambda-list directly, but should construct it at runtime using INTERN.
-T.