anchor.diff:                                      (cxml:make-whitespace-normalizer
                                        (stp:make-builder))))
            (date (sv "/info/entry/commit/date" svn-info))
  -         (svn (sv "/info/entry/commit/@revision" svn-info))
  -         #++(ts (cdddr (reverse (multiple-value-list (decode-universal-time
  -                                                      (get-universal-time) 0))))))
  -    (setf *glext-version* (subseq (remove #\- date) 0 8)
  -          #++(format nil "~:@{~d~2,'0d~2,'0d~}" ts))
  -    (setf *glext-last-updated* date
  -          #++(format nil "~{~d-~2,'0d-~2,'0dT~2,'0d:~2,'0d:~2,'0dZ~}" ts))
  +         (svn (sv "/info/entry/commit/@revision" svn-info)))
  +    (setf *glext-version* (subseq (remove #\- date) 0 8))
  +    (setf *glext-last-updated* date)
       (setf *glext-svn-version* svn))
   
     ;; extract types
  
positive.code:   ;; write package file
    (with-open-file (out binding-package-file :direction :output
                                              :if-exists :supersede)
      #+let ((out *standard-output*))
      (format t "~&;; Writing ~A.~%" (namestring binding-package-file))
  
      (format out ";;; generated file, do not edit~%")
  
negative.code:                                          :api-version))))))))
        (xpath:do-node-set (feature (xpath:evaluate "/registry/feature" gl.xml))
          (let ((api (sv "@api" feature))
                (api-number (sv "@number" feature)))
            (add feature (intern (string-upcase api) :keyword) nil api-number)))
        (xpath:do-node-set (ext (xpath:evaluate "/registry/extensions/extension"
  