anchor.diff:                          :sec secs
                           :usec usec
                           :timezone (realize-timezone
  -                                   (or timezone *default-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 :universal (get-universal-time)))
  -
  -(declaim (inline local-time< local-time/= local-time= local-time>= local-time> local-time<=))
  +  (local-time))
   
   (defmacro defcomparator (name &body body)
     (let ((pair-comparator-name (intern (concatenate 'string "%" (string name)))))
  
positive.code:            #:astronomical-modified-julian-date))
  
  (in-package :local-time)
  
  (defparameter *project-home-directory*
    (make-pathname :directory (pathname-directory
  
negative.code:                       :timezone zone))))
      result))
  
  (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)
  