[slime-devel] Re: custom tweaks for object system

[Tobias C. Rittweiler]

"Tobias C. Rittweiler" <tcr at 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.