anchor.diff:        (destructuring-bind (type url &optional name) site
           (setf result (append result (list `(progn (:a :class "dropdown-item"
                                                         :href ,url
  -                                                      ,(if name
  -                                                           name
  -                                                           (string-capitalize (symbol-name type))))
  +                                                      ,(site-symbol-to-name type
  +                                                                            name))
                                                     (:br)))))))
       result))
   
  
positive.code: ;; -*- coding:utf-8 -*-
  (in-package :net.ignorama.web)
  
  (defun site-name-to-fontawesome-class (site-name)
    (concatenate 'string
                 "fa fa-"
                 (string-downcase (symbol-name site-name))))
  
  (defmacro sociallink (site url)
    `(with-html (:a :class "header rightlink"
                    :target "_blank"
                    :href ,url
                    (:span :class ,(site-name-to-fontawesome-class site)))))
  
  (defmacro rightlink (label)
    `(with-html (:a :class "header rightlink"
  
negative.code: (defun generate-sociallinks (sites)
    (let ((result '(progn)))
      (dolist (site sites)
        (setf result (append result (list `(sociallink ,(first site)
                                                       ,(second site)
                                                       ,(third site))))))
      result))
  
  (defun generate-dropdown-links (links)
  