Plaster
New
List
Login
common-lisp
default
anonymous
2019.10.23 05:04:59
(define-method-combination hooks () ((around (:around)) (primary () :required t)) (let ((primary-call-form `(progn ,@(loop for method in primary collect `(call-method ,method))))) (if (null around) primary-call-form `(call-method ,(first around) (,@(rest around) (make-method ,primary-call-form))))))
Raw
Annotate
Repaste
Edit