anchor.diff:  
   (defun print-username (post-id)
     (execute-query-one user "SELECT UserName,
  -          Anonymous,
  -          PostIP
  -         FROM posts
  -         LEFT JOIN users ON posts.UserID = users.UserID
  -         WHERE PostID = ?" (post-id)
  +                                  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 (getf user :|username|)
  -                       (getf user :|postip|))
  -               (getf user :|postip|)))
  +               (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*))
  
positive.code:               "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 "/")))
  
  (publish-page login
    (standard-page
  
negative.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)
  