Function: save-wethod

Source

(defun save-wethod (wethod-symbol &optional (package *package*))
  (let ((wethods-in-package (gethash (^keyword package) *package-wethods*)))
    (setf wethods-in-package (adjoin wethod-symbol wethods-in-package))
    (setf (gethash (^keyword package) *package-wethods*) wethods-in-package)))