(let ((pos (gensym "POS-"))
(found (gensym "FOUND-"))
(key (kmrcl:ensure-keyword (concatenate 'string filename "^" fieldname))))
(let ((pos (gensym "POS-"))
(found (gensym "FOUND-"))
(key (kmrcl:ensure-keyword (concatenate 'string filename "^" fieldname))))