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:             do (format t "~&writing functions to file ~s~%" path)
              do (with-open-file (out path :direction :output
                                           :if-exists :supersede)
                   #+let ((out *standard-output*))
                   (format out ";;; this file is automatically generated, do not edit~%")
                   (format out ";;; generated from files with the following copyright:~%;;;~%")
                   (with-input-from-string (c copyright)
  
negative.code:                 (setf (gethash (second x) funcs)
                        (cddr x))))))
  
    ;; figure out which APIs (GL,ES1,ES2) include which functions
    (let ((x 0))
      (flet ((add (node apis ext api-ver)
  