Plaster

(define-interface test (a b &optional c) "A form") --> (PROGN (DEFUN TEST (A B &OPTIONAL C) "A form" (LET ((CLIENT *CLIENT*)) (APPLY #'TEST-WITH-CLIENT CLIENT (A B C)))) (DEFGENERIC TEST-WITH-CLIENT (CLIENT A B &OPTIONAL C) (:DOCUMENTATION "A form")))