anchor.diff:                                `(:value :path)
                                 (when (post-parameter "domain-as-value")
                                   `(:value :domain))))
  -                (qsu       (apply #'make-query-string-update operation 
  +                (qsu       (apply #'make-query-string-update operation
                                     (nconc value-kw
                                            (mapcan (lambda (reader-spec)
                                                      (let* ((kw (car reader-spec))
                                                             (param-name (string-downcase (symbol-name kw))))
                                                        (when-let (value (post-parameter param-name))
  -                                                       `((,kw . ,value))))) 
  +                                                       `((,kw . ,value)))))
                                                    *qsu-generic-readers*)))))
              (add-qs-update rule qsu
                             :position (parse-integer-or-nil (post-parameter "position"))))
  -         "OK")
  +         "OK
  +")
   
           ((starts-with-subseq "/remove" path)
            (if (post-parameter "confirmed")
  -             (progn 
  +             (progn
                  (remove-qs-update rule
                                    (make-keyword (string-upcase (post-parameter "operation")))
                                    (post-parameter "name")
                                    (post-parameter "match"))
  -               "OK")
  -             "Not confirmed, nothing deleted."))
  +               "OK
  +")
  +             "Not confirmed, nothing deleted.
  +"))
   
           ((starts-with-subseq "/list" path)
            (let ((operation   (when-let (operation (get-parameter "operation"))
  
positive.code: ;;; Copyright © 2012, Mathieu Lemoine <mlemoine@mentel.com>, Mentel Inc.
  ;;; All rights reserved.
  ;;; 
  ;;; Redistribution and use in source and binary forms, with or without
  ;;; modification, are permitted provided that the following conditions are met:
  ;;;     * Redistributions of source code must retain the above copyright
  
negative.code:                                                       :http)
                                            :port (parse-integer-or-nil (post-parameter "port")))
                             :position (parse-integer-or-nil (post-parameter "position")))
       "OK
  ")
  
      ((starts-with-subseq "/remove" path)
       (if (post-parameter "confirmed")
  