File upload

Has anyone got a working example of file-upload that works with CL-HTTP
using (accept-input 'file ...).

Thanks,
David Johnson-Davies

+------------------------------------------------------------+
David Johnson-Davies, Human-Computer Interface Ltd
17 Signet Court, Swanns Road, Cambridge, CB5 8LA, England.

Tel: +44 1223 314934, Fax: +44 1223 462562
Email: david@xxxxxxxxxxxxxxx, Web: http://www.interface.co.uk/
+------------------------------------------------------------+