TGA file loader in common lisp