anchor.diff:  
   (defmethod forms::field-read-from-request ((field stateful-file-field) form parameters)
     (let ((fvalue
  -         (cdr (assoc (forms::field-request-name field form) parameters :test #'string=))))
  +          (cdr (assoc (forms::field-request-name field form) parameters :test #'string=))))
       (if (and fvalue (listp fvalue))
           ;; A file was uploaded
           (destructuring-bind (path file-name content-type) fvalue
  
positive.code: 
  (defmethod field-read-from-request ((field file-form-field) form parameters)
    (let ((fvalue
           (cdr (assoc (field-request-name field form) parameters :test #'string=))))
      (if (and fvalue (listp fvalue))
          (destructuring-bind (path file-name content-type) fvalue
            (setf (file-path field) path)
  
negative.code:           (when (upload-handler field)
              (funcall (upload-handler field) field)))
          ;; else
          (progn
            (warn "CL-FORMS: Could not read file field file: ~a." field)
            (when (not (equalp (form-enctype form) "multipart/form-data"))
              (warn "CL-FORMS: Encoding type in forms should be set to 'multipart/form-data' for file uploads."))
            (setf (field-value field) fvalue)))))
  
  (defmethod make-form-field ((field-type (eql :file)) &rest args)
    (apply #'make-instance 'file-form-field args))
  