anchor.diff:  #|
   todo
  -get saving to work - cl-fad TODO #1
  -offer to rewrite links 
  +be able to handle broken urls/improper data
  +make sure saving in the dir tree works for multiple domain links
  +offer to rewrite links relative to each other when saved
   add delay (or function to generate delay time)
   |#
   
  
positive.code:               (progn
                  (setf (html page) body)
                  page))))))
  ;; for crawling <---------------------------------------------------------------
  
  ;; <----------------------------------------------------------------------------
  
negative.code:                          (if tag
                                (cxml-stp:attribute-value a tag))))
                     (when link
                       (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)))
  