Plaster

common-lisp
(defmethod c2mop:compute-slots ((class metalock)) (let* ((normal-slots (call-next-method)) (slot-names (mapcar #'c2mop:slot-definition-name normal-slots)) (slot-names-lock-alist (slot-names-to-lock-alist slot-names))) (cons normal-slots (make-instance 'c2mop:direct-slot-definition :name 'slot-locks ;;:initform `',slot-names-lock-alist :initfunction #'(lambda () slot-names-lock-alist)))))