anchor.diff:         (declare (ignore ,@ignores))
          ,@forms)))
   
  -(defun encode-interval (&key (nsec 0) (usec 0) (msec 0) (sec 0) (minute 0) (hour 0) (day 0) (week 0))
  +(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+
  
positive.code:                                                t t t))
                  decode-timestamp))
  
  (defparameter *project-home-directory*
    (make-pathname :directory (pathname-directory
                               (if (find-package "ASDF")
  
negative.code: 
  ;;; Month information
  (defparameter +month-names+
    #("" "January" "February" "March" "April" "May" "June" "July" "August"
      "September" "October" "November" "December"))
  (defparameter +short-month-names+
    #("" "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov"
      "Dec"))
  (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"))
  
  (defconstant +days-per-week+ 7)
  (defconstant +hours-per-day+ 24)
  (defconstant +minutes-per-day+ 1440)
  (defconstant +minutes-per-hour+ 60)
  (defconstant +seconds-per-day+ 86400)
  (defconstant +seconds-per-hour+ 3600)
  (defconstant +seconds-per-minute+ 60)
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (defparameter +rotated-month-days-without-leap-day+ #.(coerce #(31 30 31 30 31 31 30 31 30 31 31 28)
  