slate-dispatch.lisp

(defun slate-dispatch (selector &rest args)
  (let ((n (length args))
	(most-specific-method nil)
	(ordering-stack nil))
    (loop for index upto n
       do (let ((position 0))
	    (push (elt args index) ordering-stack)
	    (loop while ordering-stack
	       do (let ((arg (pop ordering-stack)))
		    (loop for role in (roles arg)
			 (when (and (eql selector (name role))
				    (eql index (role role)))
			   (setf most-specific-method (talent-pointer role))))
		    (loop for delegation in (sheep-direct-parents arg)
		       do (push delegation ordering-stack))
		    (setf position (1+ position))))))
    most-specific-method))