Using lisp with drakma, the following function save under name some content.
* (defun save(name content)
(multiple-value-bind (a b c)
(http-request (format nil "https://transfer.sh/~a" name) :method :put :content (write-to-string content))
(list a b c)))
* (defun save(name content) (multiple-value-bind (a b c) (http-request (format nil "https://transfer.sh/~a" name) :method :put :content (write-to-string content)) (list a b c)))