anchor.diff:              microseconds)))
   
   (defun seconds-to-mysql-time-interval (value &optional (microseconds 0))
  +  "Creates a MYSQL-TIME-INTERVAL representing VALUE seconds.
  +   An optional second argument can be used to specify microseconds."
     (assert (typep value 'integer))
     (let ((negativep (minusp value))
           (value (abs value)))
  
positive.code:                          :microseconds microseconds))))))
  
  (defun parse-time-interval-string (str)
    (let ((negativep (starts-with str "-")))
      (multiple-value-bind (hours end)
          (parse-integer str :start (if negativep 1 0) :junk-allowed t)
  
negative.code:             minutes seconds microseconds)))
  
  (defun mysql-time-interval-to-seconds (interval)
    "Converts a MYSQL-TIME-INTERVAL to a whole number of seconds.
     Returns microseconds as a second value."
    (assert (typep interval 'mysql-time-interval))
    (with-prefixed-accessors (negativep days hours minutes seconds microseconds)
      (mysql-time-interval- interval)
  