anchor.diff:        (reply-to message "Usage: ~~deltrivia <question #>")
         (let ((q-num (parse-integer (first args) :junk-allowed t)))
           (if (or (null q-num)
  -                (not (<= 1 q-num (length (questions-of module)))))
  +                (null (retrieve-trivia-question module q-num)))
               (reply-to message "That's not a valid question number.")
               (progn
                 (delete-trivia-question module q-num)
  
positive.code:            :stream ouf)
      (terpri ouf)))
  
  (defun add-trivia-question (module spec)
    (let* ((split-q (nth-value 1 (if (find #\? spec)
                                     (ppcre:scan-to-strings "\\s*(.*?\\?)\\s*(.+)" spec)
                                     (ppcre:scan-to-strings "\\s*(.*?\\.)\\s*(.+)" spec))))
           (answers (and split-q (ppcre:split "\\s*\\.\\s*" (elt split-q 1))))
           (new-id (1+ (reduce #'max (map 'vector 'id-of (questions-of module)))))
           (new-question (make-instance 'trivia-question
                                        :id new-id
                                        :text (elt split-q 0)
                                        :answers answers)))
      ;; insert at end of database
      (vector-push-extend new-question (questions-of module))
      (save-trivia-questions module)
      new-id))
  
  (defun edit-trivia-question (module q-num spec)
    (let* ((question (aref (questions-of module) q-num))
           (split-q (nth-value 1 (if (find #\? spec)
                                     (ppcre:scan-to-strings "\\s*(.*?\\?)\\s*(.+)" spec)
                                     (ppcre:scan-to-strings "\\s*(.*?\\.)\\s*(.+)" spec))))
           (answers (and split-q (ppcre:split "\\s*\\.\\s*" (elt split-q 1)))))
      (setf (text-of question) (elt split-q 0))
      (setf (answers-of question) answers)
      nil))
  
  (defun delete-trivia-question (module q-num)
    (let* ((doomed-q (find q-num (questions-of module) :key 'id-of)))
  
negative.code:     ((null args)
       (reply-to message "Usage: ~~addtrivia <question>[.?] <answer>. [<answer>.  ...]"))
      (t
       (let ((id (add-trivia-question module (join-string #\space args))))
         (if id
             (reply-to message "Question #~a created." id)
             (reply-to message "Bad question format."))))))
  
  (defmethod handle-command ((module trivia-module)
                             (cmd (eql 'edittrivia))
  