anchor.diff:    (loop for line = (read-line stream nil nil)
           while line
           do (multiple-value-bind (match regs)
  -               (scan-to-strings "^passthru:\\s+.*last updated ([^\\s]+)\\s*"
  +               #++(scan-to-strings "^passthru:\\s+.*last updated ([^\\s]+)\\s*"
  +                                line)
  +               (scan-to-strings "^# \\$Revision:.*\\$Date:\\s+(.*)\\s\\$$"
                                   line)
                (when match (setf *glext-last-updated* (aref regs 0))))
           (multiple-value-bind (match regs)
  
positive.code:     ("ScissorIndexedv" . "scissor-indexed-v")
      ("VDPAUFiniNV" . "vdpau-fini-nv")
      ("CreateSyncFromCLeventARB" . "create-sync-from-cl-event-arb")
  ))
  
  (defparameter *whole-words*
  
negative.code:     ("GetVideoui64vNV" . "get-video-ui64v-nv")
      ("GetBufferParameteri64v" . "get-buffer-parameter-i64v")
      ("GetInteger64v" . "get-integer-64-v")
      ;; extensions in .spec version 55
      ;; fixme: handle u?i64v? properly...
      ("GetBufferParameterui64vNV" . "get-buffer-parameter-ui64v-nv")
  