anchor.diff:                (:div :class "form-group"
                   (:select :id "reference-search" :style "width: 325px; min-width: 325px;"
                     (:option)
  -                  (reference-search)
  -                                    )))))
  +                  (reference-search))))))
  +        (:a :name "top" :id "top")
           (:div :class "jumbotron subhead" :id "overview"
             (:div :class "container"
               (:h1 :class "title" "L(λ)THW " (:small "Learn Lisp The Hard Way"))
  
positive.code:         (:div :class "container" :id "body"
            (:div :class "row"
              (:div :class "col-md-9" :id "llthwdoc"
                (:a :name "top")
                ,@body
                (:h2 "Comments"))
              (:div :class "col-md-3"
  
negative.code: ;;;; See LICENSE for additional information.
  
  (in-package :llthw)
  
  (defun create-reference-files ()
    (loop for k being the hash-keys in *cl-reference-symbols* using (hash-value v)
          do (with-open-file (s (merge-pathnames (format nil "~(~A~).md" k) *ref-dir*) :direction :output :if-exists :supersede :if-does-not-exist :create)
               (format s "### <em>~(~A~)</em> <strong>`~(~A~)`</strong>~
                          ~%~
                          ~%Syntax:~
                          ~%~
                          ~%<strong>`~(~A~)`</strong> <em>parameters</em> => <em>return-type</em>~
                          ~%~
                          ~%Documentation of parameters and return-results.~
                          ~%~
                          ~%Examples (not from CLHS...):~
                          ~%~
                          ~%```lisp~
                          ~%CL-USER> (example-code 'a 'b 'c)~
                          ~%~
                          ~%'return-result~
                          ~%```~
                          ~%"
                          (getf v :label)
                          (getf v :text)
                          (getf v :text)
                          ))))
  
  (defun reference-search ()
    (loop for k being the hash-keys in *cl-reference-symbols* using (hash-value v)
  