anchor.diff:                        :timezone zone))))
       result))
   
  -(defun local-time (&key (universal nil) (internal nil) (unix nil) (usec 0) (timezone nil))
  -  "Produce a LOCAL-TIME instance from the provided numeric time representation."
  -  (declare (ignorable internal))
  +(defun local-time (&key (universal nil) (unix nil) (usec 0) (timezone nil))
  +  "Produce a LOCAL-TIME instance from the provided numeric time representation or try to extract the most accurate current time if none of them is provided."
     (cond
       (universal
        (multiple-value-bind (sec minute hour date month year)
  
positive.code:            #:astronomical-modified-julian-date))
  
  (in-package :local-time)
  
  (defparameter *project-home-directory*
    (make-pathname :directory (pathname-directory
  
negative.code:                         :sec secs
                          :usec usec
                          :timezone (realize-timezone
                                     (or timezone *default-timezone*)))))
      (t #+sbcl
         (multiple-value-bind (_ sec usec) (sb-unix:unix-gettimeofday)
           (declare (ignore _) (type (unsigned-byte 32) sec usec))
           (let ((result (local-time :unix sec :usec usec :timezone +utc-zone+)))
             (local-time-adjust result (realize-timezone (or timezone
                                                             *default-timezone*))
                                result)))
         #-sbcl
         (local-time :universal (get-universal-time)))))
  
  (defun today ()
    (minimize-time-part (now) :timezone +utc-zone+))
  
  (defun now ()
    (local-time))
  
  (defmacro defcomparator (name &body body)
    (let ((pair-comparator-name (intern (concatenate 'string "%" (string name)))))
  