anchor.diff:                                    nil)))
       (car line)))
   
  -(defun merge-lines-into-one-host (lines)
  +(defun merge-lines-into-one-host (lines ipv6)
     (flet ((pushnew-alias (alias place cname)
              (when (string-not-equal alias cname)
                (pushnew alias place :test #'string-equal)
                place)))
   
  -    (let (ips aliases)
  +    (let (ips aliases host)
         (destructuring-bind (first-ip cname first-aliases) (car lines)
           (setf ips (list first-ip))
           (mapc #'(lambda (alias) (setf aliases (pushnew-alias alias aliases cname)))
  
positive.code:                     (mapc #'(lambda (alias) (setf aliases (pushnew-alias alias aliases cname)))
                            (cons alias more-aliases))))
                (cdr lines))
          (make-host cname (mapcar #'make-address (nreverse ips)) (nreverse aliases))))))
  
  (defun search-etc-hosts-name (name ipv6)
    (let ((lines (search-in-etc-file "/etc/hosts"
  
negative.code:                                            (list vector col2 other-cols))))
                                     t)))
      (when lines
        (merge-lines-into-one-host lines ipv6))))
  