anchor.diff:  (defun now ()
     (local-time :universal (get-universal-time)))
   
  +(declaim (inline local-time< local-time/= local-time= local-time>= local-time> local-time<=))
  +
   (defun local-time< (time-a time-b)
     "Returns T if TIME-A is less than TIME-B"
     (eql (local-time-compare time-a time-b) '<))
  
positive.code:          day)))))
  
  (defun local-time-decoded-time (local-time)
    (multiple-value-bind (hours hour-remainder)
        (floor (sec-of local-time) 3600)
      (multiple-value-bind (minutes seconds)
  
negative.code:   "Produces on stream the timestring corresponding to the LOCAL-TIME with the given options. If DESTINATION is NIL, returns a string containing what would have been output.  If DESTINATION is T, prints the string to *standard-output*."
    (declare (type (or null stream) destination)
             (type (integer 0 3) date-elements)
             (type (integer 0 4) time-elements)
             (type local-time local-time))
    (let ((str (with-output-to-string (str)
                 (when timezone
                   (setf local-time (local-time-adjust local-time timezone (make-local-time))))
  