
4 Jun
2007
4 Jun
'07
6:49 a.m.
On Sat, 2 Jun 2007 11:44:04 +0200, "Mathias Dahl" <mathias.dahl@gmail.com> wrote:
(defvar *boundary* "-------------------------1852275791466338532535335716")
(defconstant +crlf+ #.(format nil "~C~C" #\Return #\Linefeed))
(defun format-field (name value) (format nil "--~a~aContent-Disposition: form-data; name=\"~a\"~a~a~a~a" *boundary* +crlf+ name +crlf+ +crlf+ value +crlf+))
Any reason you're doing all this instead of just using :FORM-DATA? http://weitz.de/drakma/#form-data