Bug in Compute-applicable-methods

[Ramana Rao <rao@arisia.Xerox.COM>]

Hitting lots of bugs today.  Sorry, all bugs reported by me (today) are in
Cinco de Mayo Release and show up in both Lucid and Franz.


(defclass foo () ())

(defclass bar () ())

(defclass baz (foo bar) ())

(defmethod try :after ((foo foo)) (print "after"))

(defmethod try ((bar bar)) t)

(try (make-instance 'baz)) --> ERROR

(compute-applicable-methods #'try  `(,(make-instance 'baz))) --> Incorrect Ans.