(require :portable-threads)
(require :drakma)

(defun http-get/proxy-&-timeout (uri &optional (expire 1) proxy port)
  (portable-threads:with-timeout (expire nil)
    (drakma:http-request uri :proxy (and proxy `(,proxy ,port)))))