anchor.diff:    ;; For now parse a full time like "2009-08-05T04:28:30Z" or
     ;; "2009-08-05T05:17:40-7:00"
     (flet ((int (start &optional end)
  -	   (parse-integer (subseq text start end))))
  +           (parse-integer (subseq text start end))))
       (let ((year (int 0 4))
  -	  (month (int 5 7))
  -	  (day (int 8 10))
  -	  (hour (int 11 13))
  -	  (minute (int 14 16))
  -	  (second (int 17 19))
  -	  (timezone (subseq text 19)))
  +          (month (int 5 7))
  +          (day (int 8 10))
  +          (hour (int 11 13))
  +          (minute (int 14 16))
  +          (second (int 17 19))
  +          (timezone (subseq text 19)))
         (cond
  -	((string= timezone "Z")
  -	 (setf timezone 0))
  -	(t
  -	 (let ((colon (position #\: timezone)))
  -	   (let ((tz-sign (if (string= (subseq timezone 0 1) "-") 1 -1))
  -		 (tz-hours (parse-integer (subseq timezone 1 colon)))
  -		 (tz-minutes (parse-integer (subseq timezone (1+ colon)))))
  -	     (setf timezone (* tz-sign (+ tz-hours (/ tz-minutes 60))))))))
  +        ((string= timezone "Z")
  +         (setf timezone 0))
  +        (t
  +         (let ((colon (position #\: timezone)))
  +           (let ((tz-sign (if (string= (subseq timezone 0 1) "-") 1 -1))
  +                 (tz-hours (parse-integer (subseq timezone 1 colon)))
  +                 (tz-minutes (parse-integer (subseq timezone (1+ colon)))))
  +             (setf timezone (* tz-sign (+ tz-hours (/ tz-minutes 60))))))))
         (encode-universal-time second minute hour day month year timezone))))
   
  -  
  +
   
   (defun iso-8601-time-zone (name)
     (find name *time-zones* :key #'first))
  
positive.code: ;; though any transcription errors are likely my own.
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (defparameter *time-zones*
    '(;; North America 
      (:nst -7/2 "Newfoundland Standard Time")
      (:hnt -7/2 "Heure Normale de Terre-Neuve")
      (:ndt -5/2 "Newfoundland Daylight Time")
  
negative.code: 
  (defun month-name (number)
    (aref *long-month-names* (1- number)))
  
  (defun day-name (number)
    (aref *day-names* number))
  
  (defun make-time (&rest args &key second minute hour day month year zone (defaults (get-universal-time)))
    (declare (ignore second minute hour day month year zone))
  