Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
23 lines (16 sloc) 412 Bytes
This file is a part of trial
(c) 2016 Shirakumo (
Author: Nicolas Hafner <>
(in-package #:org.shirakumo.fraf.trial)
(defgeneric matches (a b))
(defmethod matches (a b)
(equal a b))
(defclass entity (unit)
(defmethod matches ((a entity) b)
(or (eql a b)
(matches (name a) b)))
(defmethod matches (a (b entity))
(matches b a))