Compute-applicable-methods not working properly in Victoria Day

[Darrell <shane%blackcomb@RAND.ORG>]

(defmethod foo ((sym (eql 'A)))
  (format t "Main foo method.~%"))

(defmethod foo :around ((sym (eql 'A)))
  (call-next-method)
  (format t "Around foo method.~%"))

(defmethod foo :before ((sym (eql 'A)))
  (format t "Before foo method.~%"))

(defmethod foo :after ((sym (eql 'A)))
  (format t "After foo method.~%"))

(compute-applicable-methods #'foo (list 'A)) -->
(#<Standard-Method FOO ((EQL A)) 34077671>)

Which is not the complete set of applicable methods.  Also, I believe 
this is reason why PCL doesn't recognize initialization arguments that 
are arguments to method(s).

Darrell Shane