[1] your logical pathnames are messed up. the "ccl:interfaces;" path
doesn't lead to your actual index path. see the file site:pathname-
translations.lisp
[2] the right call to rlet would be
(ccl:rlet ((:rect r :topleft #@(0 0) :bottomright #@(49 241)))
...)
or the like. check the mcl docs.