anchor.diff:                                                                          (label ((@ ($ item) data) "label")))
                                                                      (return (+ "<strong>" (@ obj text) "</strong> <span class='label label-default'>" label "</span>"))
                                                                      ))
  -                                                 escape-markup (lambda (m) (return m))
  -                                                 ))
  +                                                 escape-markup (lambda (m) (return m))))
       ((@ ($ "#reference-search") change)
         (lambda ()
           (let* ((the-id ((@ ($ "#reference-search") select2) "val"))
  
positive.code:           ((@ ($ "#refSearchModalLabel") text) (+ "Common Lisp Symbol: " the-label " "))
            ((@ ($ "#refSearchModalBody") load) the-href)
            ((@ ($ "#refSearchModalCLHSLink") attr) "href" (+ clhs-root clhs-entry))
            ((@ ($ "#refSearchModal") modal) "show")
            )))
      ;((@ ($ ".select2-result-label") each)
      ;  (lambda ()
      ;    (let ((the-label ((@ ($ this) data) "label")))
      ;      ((@ ($ this) append) (+ "<span class='label label-default'>" the-label "</span>")))))
      ((@ ($ document) ready)
        (lambda ()
          (return true)))
      ((@ ($ "#try-lisp-next") click)
        (lambda ()
          (let ((the-href ((@ ($ this) attr) "href")))
            ((@ ($ "#trylispbody") load) the-href)
            (return false))))
      ((@ ($ "#llthwdoc img") add-class) "img-thumbnail")
      ((@ ($ "ul.sidenav") html) "")
      ((@ ((@ ((@ ($ "#llthwdoc") children)) filter) ":header") each)
  
negative.code: (define-easy-handler (llthw-js :uri "/llthw.js") ()
    (setf (content-type*) "text/javascript")
    (ps
      ((@ ($ document) ready)
        (lambda ()
          (return true)))
      ((@ ($ "#try-lisp-next") click)
        (lambda ()
          (let ((the-href ((@ ($ this) attr) "href")))
            ((@ ($ "#trylispbody") load) the-href)
            (return false))))
      ((@ ($ "#reference-search") select2) (create placeholder "Search Common Lisp Symbol Reference..."
                                                   allow-clear true
                                                   format-result (lambda (obj)
  