anchor.diff:        (:body
           (:nav :class "navbar navbar-inverse navbar-fixed-top" :role "navigation"
             (:div :class "container"
  -            (:div :class "navbar-header"
  -              ;(:a :class "navbar-brand" :href "#" (str (format nil "L(~C)THW" #\greek_small_letter_lamda)))
  -              )
  -            ;(:ul :class "nav navbar-nav"
  -            ;  (:li :class "active" (:a :href "/" "Home"))
  -            ;  (:li (:a :href "/try-lisp/" "Try Lisp"))
  -            ;  (:li (:a :href "/book/" "Book"))
  -            ;  (:li (:a :href "/resources/" "Resources")))
  -              ))
  +            (:div :class "navbar-header")))
           ,@body
           (llthw-footer)
           (:script :src "//code.jquery.com/jquery-1.11.0.min.js")
  
positive.code: ;;;; See LICENSE for additional information.
  
  (in-package :llthw)
  
  (defun reference-search ()
    (loop for k being the hash-keys in *cl-reference-symbols* using (hash-value v)
  
negative.code:               (:div :class "form-group"
                  (:select :id "reference-search" :style "width: 325px; min-width: 325px;"
                    (:option)
                    (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"))
  