chickadee » yasos » define-operation

(define-operation (name obj . args) . default-body)syntax

defines an operation, obj should accept, with arguments args and default-body in case, no name is defined within operations.