anchor.diff:    (format t "~%main <---~%"))
   
   (defun make-root (url)
  -  (make-instance 'link :url url :depth 0))
  +  (make-instance 'webpage :url url :depth 0))
   
   (defun make-link (&key url depth)
  -  (make-instance 'link :url url :depth depth))
  +  (make-instance 'webpage :url url :depth depth))
   
  -(defclass link ()
  +(defclass webpage ()
     ((url :accessor url :initarg :url)
      (depth :accessor depth :initarg :depth)
  -   (page :accessor page :initarg :page)))
  -
  -(defclass webpage ()
  -  ((link :accessor link :initarg :link)
  +   (page :accessor page :initarg :page)
      (html :accessor html :initarg :html)
      (links-objects :accessor links-objects :initarg :links-objects :initform '())
  -   (links-list :accessor links-list :initarg :links-list)))
  +   (links-list :accessor links-list :initarg :links-list :initform '())))
   
   (defmethod print-links ((page webpage))
     (format t "~{~A~%~}" (links-list page)))
  
positive.code: #|
  todo
  test other depth levels
  get saving to work
  offer to rewrite links
  
negative.code:           (when link
              (push (puri:render-uri (puri:merge-uris link response-uri) nil)
                    html-links))))
        (progn
          (setf (html link-arg) body)
          (setf (links-list link-arg) (nreverse html-links)))
        link-arg)))
  