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