anchor.diff:      (remove-if #'null (nreverse result))))
   
   (defun parse-uri (schema uri)
  +  "Parses URI against SCHEMA and returns a hashtable with all pathvariable bindings"
     (when (not 
   	 (scan 
   	  (schema->regexpurl schema)
  
positive.code: 
  (in-package :rest)
  
  (defun preparse-uri-parameters->map (schema)
    "Turns st. like 'bla/{id:[0-9]+}/{name:.+}' in a parameter->regexpmap hashtable"
    (let ((map (make-hash-table)))
  
negative.code: 	(declare (ignore n/a))
  	(setf (gethash (aref found 0) map) (aref found 1))))
      map))
  |#
  
  (defun preparse-uri-parameters->list (schema)
    "Turns st. like 'bla/{id:[0-9]+}/{name:.+}' in a parameter->regexpmap list"
  