guile> (with-statprof #:hz 100 (resolve-interface '(gnome gtk))) % cumulative self time seconds seconds name 16.55 1.13 1.03 hash-for-each 12.41 3.81 0.77 module-search 11.38 1.24 0.71 %record-type-check 10.69 2.18 0.66 module-local-variable 5.17 0.94 0.32 module-obarray-ref 5.17 0.66 0.32 module-obarray 5.17 0.32 0.32 record-type-descriptor 3.79 0.56 0.24 eq? 2.76 4.06 0.17 module-make-local-var! 2.76 0.60 0.17 module-binder 2.41 0.60 0.15 module-uses 2.07 6.20 0.13 primitive-load 1.72 1.62 0.11 for-each 1.03 0.13 0.06 catch 1.03 0.06 0.06 cache-hashval 0.69 4.21 0.04 dynamic-call 0.69 0.21 0.04 module-ensure-local-variable! 0.69 0.09 0.04 module-obarray-set! 0.69 0.06 0.04 vector-set! 0.34 0.15 0.02 module-add! 0.34 0.11 0.02 module-modified 0.34 0.11 0.02 add-method! 0.34 0.09 0.02 vector-map 0.34 0.09 0.02 module-ref 0.34 0.06 0.02 module-call-observers 0.34 0.04 0.02 module-observers 0.34 0.02 0.02 module-weak-observers 0.34 0.02 0.02 loop 0.34 0.02 0.02 loop 0.34 0.02 0.02 loop 0.34 0.02 0.02 loop 0.34 0.02 0.02 loop 0.34 0.02 0.02 loop 0.34 0.02 0.02 loop 0.34 0.02 0.02 loop 0.34 0.02 0.02 not 0.34 0.02 0.02 loop 0.34 0.02 0.02 loop 0.34 0.02 0.02 loop 0.34 0.02 0.02 loop 0.34 0.02 0.02 loop 0.34 0.02 0.02 loop 0.34 0.02 0.02 module-for-each 0.34 0.02 0.02 loop 0.34 0.02 0.02 loop 0.34 0.02 0.02 loop 0.34 0.02 0.02 gtype-class->type 0.34 0.02 0.02 loop 0.34 0.02 0.02 loop 0.34 0.02 0.02 loop 0.34 0.02 0.02 hash-set! 0.34 0.02 0.02 loop 0.34 0.02 0.02 loop 0.34 0.02 0.02 make-module 0.34 0.02 0.02 loop 0.34 0.02 0.02 loop 0.34 0.02 0.02 loop 0.00 6.20 0.00 resolve-module 0.00 6.20 0.00 try-load-module 0.00 6.20 0.00 dynamic-wind 0.00 6.20 0.00 try-module-autoload 0.00 6.20 0.00 load-file 0.00 6.20 0.00 resolve-interface 0.00 6.20 0.00 primitive-eval 0.00 6.20 0.00 save-module-excursion 0.00 6.20 0.00 with-fluid* 0.00 5.67 0.00 process-use-modules 0.00 4.77 0.00 map 0.00 4.75 0.00 apply 0.00 3.81 0.00 module-variable 0.00 3.29 0.00 load-file 0.00 1.18 0.00 module-use-interfaces! 0.00 1.15 0.00 process-duplicates 0.00 0.98 0.00 load-file 0.00 0.47 0.00 process-define-module 0.00 0.43 0.00 module-export! 0.00 0.36 0.00 load-file 0.00 0.34 0.00 load-file 0.00 0.30 0.00 loop 0.00 0.24 0.00 initialize 0.00 0.24 0.00 make-instance 0.00 0.19 0.00 %gw-module-binder 0.00 0.19 0.00 gtype->class 0.00 0.17 0.00 gobject-class-set-properties! 0.00 0.15 0.00 method-cache-install! 0.00 0.15 0.00 memoize-method! 0.00 0.13 0.00 cache-try-hash! 0.00 0.13 0.00 hashed-method-cache-insert! 0.00 0.13 0.00 get-direct-supers 0.00 0.09 0.00 %gw-module-binder 0.00 0.09 0.00 load-file 0.00 0.09 0.00 gobject-type-get-properties 0.00 0.09 0.00 make-class 0.00 0.09 0.00 defined? 0.00 0.06 0.00 loop 0.00 0.06 0.00 cons* 0.00 0.06 0.00 logand 0.00 0.06 0.00 module-public-interface 0.00 0.04 0.00 load-file 0.00 0.04 0.00 init-gobject-class 0.00 0.04 0.00 especify-metaclass! 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 compute-new-list-of-methods 0.00 0.02 0.00 hash-fold 0.00 0.02 0.00 beautify-user-module! 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 list 0.00 0.02 0.00 loop 0.00 0.02 0.00 init-gobject-class 0.00 0.02 0.00 compile-method 0.00 0.02 0.00 loop 0.00 0.02 0.00 init-gobject-class 0.00 0.02 0.00 init-gobject-class 0.00 0.02 0.00 loop 0.00 0.02 0.00 module-use! 0.00 0.02 0.00 load-file 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 next-method? 0.00 0.02 0.00 init-gobject-class 0.00 0.02 0.00 loop 0.00 0.02 0.00 init-gobject-class 0.00 0.02 0.00 init-gobject-class 0.00 0.02 0.00 compute-entry-with-cmethod 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 class-of 0.00 0.02 0.00 slot-set! 0.00 0.02 0.00 memv 0.00 0.02 0.00 loop 0.00 0.02 0.00 loop 0.00 0.02 0.00 compute-slot-accessors 0.00 0.02 0.00 find-duplicate 0.00 0.02 0.00 loop --- Sample count: 290 Total time: 6.2 seconds (9/10 seconds in GC)