(load (concatenate 'string si::*system-directory* "../cmpnew/collectfn"))
(compiler::emit-fn t)