anchor.diff:                "TODO - add stuff here")))
   
   (publish-page view-thread
  -  ;; if passed "post" parameter, redirect to appropriate thread and highlight post
  -  (if (get-parameter "post")
  -      (execute-query-one thread
  -          "SELECT ThreadID FROM posts WHERE PostID = ?"
  -          ((get-parameter "post"))
  -        (redirect (format nil
  -                          "/view-thread?thread=~d&highlight=~d#post~d"
  -                          (getf thread :|threadid|)
  -                          (get-parameter "post")
  -                          (get-parameter "post")))))
  -
  -  (if (not (equal (empty-string-if-nil (get-parameter "thread"))
  -                  ""))
  -      (standard-page
  -          (:title (get-thread-title (get-parameter "thread")))
  -        (:body (:div :style "margin-bottom: 5px;"
  -                     (thread-buttons)
  -                     (thread-dropdown))
  -               (posts-table "SELECT *
  -           FROM posts
  -           WHERE ThreadID = ?
  -           ORDER BY PostTime
  -           LIMIT ?
  -           OFFSET ?"
  -                            (get-parameter "thread")
  -                            *posts-per-page*
  -                            (if (get-parameter "page")
  -                                (* (- (parse-integer
  -                                       (get-parameter "page")) 1)
  -                                   *posts-per-page*)
  -                                0))
  -               (:div :style "margin-top: 5px; margin-bottom: 5px;"
  -                     (thread-buttons))
  -               (:div :class "fake-copyright"
  -                     (:raw *fake-copyright*))
  -               (:script (view-thread-js))))
  -      (redirect "/")))
  +  (let ((post-id (get-parameter "post"))
  +        (thread-id (get-parameter "thread"))
  +        (user-id (get-parameter "user"))
  +        (user-ip (get-parameter "ip"))
  +        (page (get-parameter "page")))
  +    ;; if passed "post" parameter, redirect to appropriate thread and highlight post
  +    (if post-id
  +        (execute-query-one thread
  +            "SELECT ThreadID FROM posts WHERE PostID = ?"
  +            (post-id)
  +          (redirect (format nil
  +                            "/view-thread?thread=~d&highlight=~d#post~d"
  +                            (getf thread :|threadid|)
  +                            post-id
  +                            post-id))))
  +
  +    (if (not (and (equal (empty-string-if-nil thread-id) "")
  +                  (equal (empty-string-if-nil user-id) "")
  +                  (equal (empty-string-if-nil user-ip) "")))
  +        (standard-page
  +            (:title (get-thread-title thread-id))
  +          (:body (:div :style "margin-bottom: 5px;"
  +                       (thread-buttons)
  +                       (thread-dropdown))
  +                 (posts-table
  +                  (format nil "SELECT *
  +                               FROM posts
  +                               WHERE True
  +                               ~a
  +                               ORDER BY PostTime
  +                               LIMIT ?
  +                               OFFSET ?"
  +                          (concatenate 'string
  +                                       (unless (equal (empty-string-if-nil thread-id) "")
  +                                         (format nil " AND ThreadID = ~d"
  +                                                 (dbi.driver:escape-sql *conn* thread-id)))
  +                                       (unless (equal (empty-string-if-nil user-id) "")
  +                                         (format nil " AND UserID = ~d"
  +                                                 (dbi.driver:escape-sql *conn* user-id)))))
  +                  *posts-per-page*
  +                  (if page
  +                      (* (- (parse-integer
  +                             page) 1)
  +                         *posts-per-page*)
  +                      0))
  +                 (:div :style "margin-top: 5px; margin-bottom: 5px;"
  +                       (thread-buttons))
  +                 (:div :class "fake-copyright"
  +                       (:raw *fake-copyright*))
  +                 (:script (view-thread-js))))
  +        (redirect "/"))))
   
   (publish-page login
     (standard-page
  
positive.code: (eval-when (:compile-toplevel :load-toplevel :execute)
    (defparameter *header*
      '((row :class "header" :style (format nil "background-color: ~a" *ignorama-purple*)
          (col 12
  
            ;; logo and slogans
            (:div :class "container"
                  (row
                    (desktop-only
                      (col 6 :style "padding-top: 4px;"
                        (:a :href "/"
                            (:img :src *logo-path*))
                        (if *slogans*
                            (:b :style (format nil "position: absolute;
                top: 15px; color: ~a" *header-text-color*)
                                (:raw (random-elt *slogans*))))))
                    (mobile-only
                      (col 6 :style "padding-top: 15px;"
                        (:a :href "/"
                            (:img :src *logo-path*))))
  
                    ;; right links
                    (col 6
                      (rightlinks *rightlinks* *sociallinks*)))))))))
  
  ;;; The basic format that every viewable page will follow.
  (defmacro standard-page ((&key title) &body body)
  
negative.code: 
  (defun print-username (post-id)
    (execute-query-one user "SELECT UserName,
                                    users.UserID,
                                    Anonymous,
                                    PostIP
                             FROM posts
                             LEFT JOIN users ON posts.UserID = users.UserID
                             WHERE PostID = ?"
        (post-id)
      (cond ((user-authority-check-p "Moderator")
             (if (not (is-null (getf user :|username|)))
                 (values (with-html-string
                           (:a :href (format nil
                                             "view-thread?user=~a&ip=~a"
                                             (getf user :|userid|)
                                             (getf user :|postip|))
                               (getf user :|username|)))
                         (with-html-string
                           (:a :href (format nil
                                             "view-thread?user=~a&ip=~a"
                                             (getf user :|userid|)
                                             (getf user :|postip|))
                               (getf user :|postip|))))
                 (with-html-string
                   (:a :href (format nil
                                     "view-thread?ip=~a"
                                     (getf user :|postip|))
                       (getf user :|postip|)))))
            (t (if (and (or (and (not *force-anonymity*)
                                 (not (getf user :|anonymous|)))
                            (not *allow-anonymity*))
  