4 Jun
2007
4 Jun
'07
8: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?