(load (merge-pathnames "mac-load-cl-http-client"  (truename  ccl:*loading-file-source-file*)) :verbose t)