goops speedups

[Stefan Israelsson Tampe <stefan.itampe@gmail.com>]

Dear all,

Consider the following code

(define (f x)
   (let lp ((i 0) (s 0))
       (if (< i (len x))
           (lp (+ i 1) (+ (get x i) s))
           s)))

Not an uncommon code. The problem is you should be able speed up the loop
if len and get is generalized procedures by doing the dispatch once like
this

(define (f x)
   (let ((-len (find-dispatch len x))
          (-get (find-dispatch get x)))
     (let lp ((i 0) (s 0))
         (if (< i (-len x))
             (lp (+ i 1) (+ (-get x i) s))
              s))))

The question is if we have such an interface or similar or if we should
request that we get such a feature from the guile overlords.

Regards
Stefan