anchor.diff:      (macrolet ((initialize (&rest vars)
                    `(progn
                       ,@(loop
  -                        :for var :in vars
  -                        :collect `(progn
  -                                    (unless ,var
  -                                      (setf ,var (gensym))
  -                                      (push ,var ignores))
  -                                    (push ,var variables)))
  +                         :for var :in vars
  +                         :collect `(progn
  +                                     (unless ,var
  +                                       (setf ,var (gensym))
  +                                       (push ,var ignores))
  +                                     (push ,var variables)))
                       (setf ignores (nreverse ignores))
                       (setf variables (nreverse variables))))
                  (declare-fixnum-type (&rest vars)
                    `(progn
                       ,@(loop
  -                        :for var :in vars
  -                        :collect `(when ,var
  -                                    (push `(type fixnum ,,var) types)))
  +                         :for var :in vars
  +                         :collect `(when ,var
  +                                     (push `(type fixnum ,,var) types)))
                       (setf types (nreverse types)))))
         (when nsec
           (push `(type (integer 0 999999999) ,nsec) types))
  
positive.code:   (declare (type (or string symbol) zone-name))
    (let ((zone-sym (if (symbolp zone-name) zone-name (intern zone-name))))
      `(prog1
           (defparameter ,zone-sym (make-timezone :path ,zone-file
                                                  :name ,(if (symbolp zone-name)
                                                             (string-downcase (symbol-name zone-name))
                                                             zone-name)))
         ,@(when load
             `((%realize-timezone ,zone-sym))))))
  
  (eval-when (:load-toplevel :execute)
    (let ((default-timezone-file #p"/etc/localtime"))
  
negative.code: 
  (deftype time-of-day ()
    '(and timestamp
          (satisfies %valid-time-of-day?)))
  
  (defun %valid-date? (timestamp)
    (and (zerop (sec-of timestamp))
  