anchor.diff:                                                 t t t))
                   decode-timestamp))
   
  +;;; Variables
  +
   (defparameter *project-home-directory*
     (make-pathname :directory (pathname-directory
                                (if (find-package "ASDF")
  
positive.code:                  for days :across +rotated-month-days-without-leap-day+
                   collect (incf sum days)))
       '(simple-array fixnum (*)))))
  
  ;;; Day information
  (defparameter +day-names+
    '("Sunday" "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday"))
  
  (defparameter +day-names-as-keywords+
    '(:sunday :monday :tuesday :wednesday :thursday :friday :saturday))
  
  (defparameter +short-day-names+
    '("Sun" "Mon" "Tue" "Wed" "Thu" "Fri" "Sat"))
  
  ;; The astronomical julian date offset is the number of days between
  ;; the current date and -4713-01-01T00:00:00+00:00
  
negative.code:        (declare (ignore ,@ignores))
         ,@forms)))
  
  (defun encode-duration (&key (nsec 0) (usec 0) (msec 0) (sec 0) (minute 0) (hour 0) (day 0) (week 0))
    (+ (* +seconds-per-minute+
          (+ (* +minutes-per-hour+
                (+ (* +hours-per-day+
  