anchor.diff:  
   (defun index-params-by-type (type)
     (cond ((equal type "search")
  -         (let ((search (get-parameter "search")))
  +         (let* ((search (get-parameter "search"))
  +                (search-for-query (substitute-if #\%
  +                                                 #'whitespacep
  +                                                 (dbi.driver:escape-sql
  +                                                  *conn*
  +                                                  (empty-string-if-nil search)))))
              (values (format nil "Search for \"~a\""
                              (empty-string-if-nil search))
                      (format nil "(SELECT 1
  
positive.code:                               *conn* (real-remote-addr))))
                   "ORDER BY latestposttime DESC"))
          (t "")))
  
  (defun user-status-id ()
    (let ((user-status (get-session-var 'userstatus)))
  
negative.code:                                    AND PostContent LIKE '%~a%'
                                   LIMIT 1) = 1
                                   OR ThreadSubject LIKE '%~a%'"
                             search-for-query search-for-query)
                     nil)))
          ((equal type "following")
           (values "Following"
  