anchor.diff:  (defun form-data ()
     (| *form-data*
        (& (has-form?)
  -        (alet (hash-alist *_POST*)
  +        (alet (phphash-alist *_POST*)
             (= *form-data* (pairlist (make-upcase-symbols (carlist !))
                                      (cdrlist !)))))))
   
  
positive.code:   (& (has-form?)
       (!? (form-data)
           (dolist (i ! t)
             (& (empty-string-or-nil? .i)
                (return nil))))))
  
  (defun has-form-files? ()
  
negative.code: ;;;;; Copyright (c) 2012–2014 Sven Michael Klose <pixel@copei.de>
  
  (defvar *form-data* nil)
  
  