Plaster
New
List
Login
common-lisp
default
anonymous
2022.06.28 10:56:01
(defmacro def-this-method (name (first &rest rest) &body body) (let ((all-the-slots (mapcar #'mop:slot-definition-name (mop:class-slots (find-class (cadr first)))))) `(defmethod ,name (,first ,@rest) (with-slots (,@all-the-slots) ,(car first) ,@body))))
Raw
Annotate
Repaste
Edit