Plaster
New
List
Login
text
default
anonymous
2022.02.07 15:50:23
(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")))
Raw
Annotate
Repaste
Edit