anchor.diff:    (log:debu1 "(route) Clear route ~s" resource-str)
     (let ((new-routes (delete-if
                         (lambda (route)
  -                        (and (method-equal (getf route :method) method)
  -                             (string= (getf route :resource-str) resource-str)))
  +                        (route-equal route method resource-str))
                         (wookie-state-routes *state*))))
       (setf (wookie-state-routes *state*) (alexandria:copy-array new-routes :fill-pointer t :adjustable t))))
   
  
positive.code:                      (sort (copy-list method2) #'string<))))
        nil))
  
  (defun upsert-route (new-route)
    "Add a new route to the table. If a route already exists with the same method
     and resource string, it is replaced with the new one in the same position the 
  
negative.code:     (unless (zerop (length (wookie-state-routes *state*)))
        (loop for i from 0
              for route across (wookie-state-routes *state*) do
          (when (route-equal route method resource-str)
            (setf (aref (wookie-state-routes *state*) i) new-route
                  route-found t)
            (return))))
  