anchor.diff:  		    :key #'(lambda (x) (getf x :key))
   		    :test #'equal)
   	      :regexp))))
  -(def-test testparse ()
  +(test testparse ()
     (let ((result (defrest::parse-schema "/test/{id:[a-z]}")))
       (is (= 2
   	   (length result)))
  
positive.code: 	       (gethash "id" result)))
      (is (= 1
  	   (hash-table-count result)))))
  (def-test testuriparse ()
    (let ((result (defrest::parse-uri "/test/{id:[0-5]}{name:.+}" "/test/3A%20B")))
      (is (equal "A B"
  	       (gethash "name" result)))
  
negative.code: (in-suite defrest-tests)
  
  
  (test testurlfiddling ()
    (is (equal 
         "/test/[0-9]+/gna"
         (defrest::schema->regexpurl "/test/{id:[0-9]+}/gna")))
  