anchor.diff:    "Iterate on each tag"
     (labels ((rec (acc &key (start 0))
                (multiple-value-bind (begin end)
  -                 (scan tag menu :start start)
  +                 (cl-ppcre:scan tag menu :start start)
                  (if (and begin end)
                      (rec (cons (subseq menu begin (length menu)) acc)
                           :start end)
  
positive.code: 
  (defun scan-href (tag)
    "Pick up an href value of <A> tag."
    (register-groups-bind (tag)
        ("href=\"([^\"#]*)#.*\"" tag)
      tag))
  
  
negative.code:                 :scan
                  :register-groups-bind
                  :regex-replace
                  :regex-replace-all))
  
  (in-package :dpans)
  
  