anchor.diff:                         (error "Failed to parse ~S as an rfc3339 time" time-string)
                          (return-from %split-timestring nil)))
                    (done ()
  -                   (return-from %split-timestring (list year month day hour minute second usec offset-hour offset-minute))))
  +                   (return-from %split-timestring (list year month day hour minute second nsec offset-hour offset-minute))))
             (parse))))))
   
   (defun parse-rfc3339-timestring (timestring &key (fail-on-error t)
  
positive.code: 
  (defun parse-timestring (timestring &rest args)
    "Parse a timestring and return the corresponding LOCAL-TIME. See split-timestring for details. Unspecified fields in the timestring are initialized to their lowest possible value."
    (destructuring-bind (year month day hour minute second usec offset-hour offset-minute)
        (apply #'split-timestring timestring args)
      ;; TODO should we assert on month and leap rules here?
      (let ((timezone (if offset-hour
  
negative.code:                                       (allow-missing-date-part-p allow-missing-elements-p)
                                        (allow-missing-time-part-p allow-missing-elements-p)
                                        (allow-missing-timezone-part-p allow-missing-elements-p))
    "Based on http://www.ietf.org/rfc/rfc3339.txt including the function names used. Returns (values year month day hour minute second nsec offset-hour offset-minute). If the parsing fails, then either signals an error or returns nil based on FAIL-ON-ERROR."
    (declare (type character date-time-separator time-separator date-separator)
             (type (simple-array character) time-string)
             (optimize (speed 3)))
    (the list
      (let (year month day hour minute second nsec offset-hour offset-minute)
        (declare (type (or null fixnum) start end year month day hour minute second nsec offset-hour offset-minute))
        (macrolet ((passert (expression)
                     `(unless ,expression
                       (parse-error)))
  