anchor.diff:  ;; For writing a string to a file
   ;; found @http://www.socher.org/index.php/Main/WriteToFileInLisp
   (defun write-to-file (name content)
  +  (format t "got here, name: ~A~%" name)
     (let ((correct-name (correct-filename name)))
       (with-open-file (stream correct-name :direction :output
                               :if-exists :overwrite
  
positive.code:                          (if tag
                                (cxml-stp:attribute-value a tag))))
                     (when 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)))
  
negative.code:               (progn
                  (setf (html page) body)
                  page))))))
  
  ;; for crawling <---------------------------------------------------------------
  
  ;; <----------------------------------------------------------------------------
  