anchor.diff:    (when (not
            (or (typep data 'local-time:timestamp)
                (and (stringp data)
  -                  (chronicity:parse data))))
  +                  (or (ignore-errors (local-time:parse-timestring data
  +                                                                  :allow-missing-timezone-part t))
  +                      (chronicity:parse data)))))
       (validation-error "~A: ~A is not a valid timestamp"
                         (or (attribute-external-name attribute)
                             (attribute-name attribute))
  
positive.code:   (when (not
           (or (typep data 'local-time:timestamp)
               (and (stringp data)
                    (chronicity:parse data))))
      (validation-error "~A: ~A is not a valid date"
                        (or (attribute-external-name attribute)
                            (attribute-name attribute))
  
negative.code:     (t (validation-error "~A is not a float" data))))
  
  (defmethod parse-schema-attribute-value ((type (eql :timestamp)) data)
    (or (ignore-errors (local-time:parse-timestring data :allow-missing-timezone-part t))
        (chronicity:parse data)))
  
  (defmethod parse-schema-attribute-value ((type (eql :datetime)) data)
    (or (ignore-errors (local-time:parse-timestring data :allow-missing-timezone-part t))
        (chronicity:parse data)))
  
  (defmethod parse-schema-attribute-value ((type (eql :time)) data)
    (or
     (ignore-errors (local-time:parse-timestring
                     data
                     :allow-missing-date-part t
                     :allow-missing-timezone-part t))
     (chronicity:parse data)))
  
  (defmethod parse-schema-attribute-value ((type (eql :date)) data)
    (or 
     (ignore-errors (local-time:parse-timestring
                     data
                     :allow-missing-time-part t
                     :allow-missing-timezone-part t))
     (chronicity:parse data)))
  
  (defmethod parse-schema-attribute-value ((type (eql :keyword)) data)
    (intern (string-upcase data) :keyword))
  