anchor.diff:                           (if tag
                                 (cxml-stp:attribute-value a tag))))
                      (when link
  -                     (push (puri:render-uri (puri:merge-uris link response-uri) nil)
  -                           html-links))))
  +                     (if (not (equal "javascript:void(0);" link))
  +                         (push (puri:render-uri (puri:merge-uris link response-uri) nil)
  +                               html-links)))))
                  (progn
                    (setf (html page) body)
                    (add-links-to-page page (nreverse html-links)))
  
positive.code: #|
  todo
  get saving to work - cl-fad TODO #1
  offer to rewrite links 
  add delay (or function to generate delay time)
  |#
  
  
negative.code:               (progn
                  (setf (html page) body)
                  page))))))
  
  ;; for crawling <---------------------------------------------------------------
  
  ;; <----------------------------------------------------------------------------
  