anchor.diff:     (timestamp-day time)))
   
   (defun am/pm (time)
  -  (if (>= (timestamp-hour time) 12)
  +  (if (>= (the hour (timestamp-hour time)) 12)
         "PM"
         "AM"))
   
  
positive.code:     "October" "November" "December"))
  
  (defun month-name (time)
    (svref *months* (1- (timestamp-month time))))
  
  (defun short-month-name (time)
    (subseq (month-name time) 0 3))
  
  (defparameter *weekdays*
    #("Sunday" "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday"))
  
negative.code:               (abs hours) (abs minutes)))))
  
  (defun time-zone-name (time &optional nato)
    (if (and nato (eq *default-timezone* +utc-zone+))
        "Z"
        (let ((name
                (nth-value 10 (decode-timestamp time))))
          (if (equal name "UTC")
              "GMT"
              name))))
  