+;;;; Helper for slightly newer trace implementation, based on
+;;;; breakpoint stuff. The above is potentially still useful, so it's
+;;;; left in, commented.
+(defun list-all-maybe-method-names (gf)
+ (let (result)
+ (dolist (method (generic-function-methods gf) (nreverse result))
+ (let ((spec (nth-value 2 (parse-method-or-spec method))))
+ (push spec result)
+ (push (list* 'fast-method (cdr spec)) result)))))
+\f