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:               (progn
                  (setf (html page) body)
                  page))))))
  ;; for crawling <---------------------------------------------------------------
  
  ;; <----------------------------------------------------------------------------
  
negative.code:   (debug-print "~%main --->~%")
    (initialize-element-tag-table)
    ;;(setf l1 (make-root "http://twitter.github.com/bootstrap/"))   ;; (setf l1 (make-root "http://www.reddit.com"))
    ;; (setf l1 (make-root "http://www.gigamonkeys.com/"))
    (setf l1 (make-root "http://www.google.com"))
    (setf m2 (make-instance 'webpage-manager :root-link l1 :depth-limit 1 :save-to "/tmp/test" :overwrite t :save-flat nil))
    (format t "~%main <---~%"))
  
  