anchor.diff:  
     (let ((letlist (loop for var in varlist collect `(,var (gethash (symbol-name (quote ,var)) map)))))
       `(setf (gethash ,pattern *rest-dispatcher-table*)
  -	  (create-rest-dispatcher ,pattern ,method 
  +	   (create-rest-dispatcher ,pattern ,method 
   				   (lambda (map)
   				     (let ,letlist
   				       ,@body))))))
  
positive.code:     (do-matches-as-strings (match "{([^\{]+):([^\}]+)}*" schema) 
        (multiple-value-bind (n/a found)
  	  (scan-to-strings "{(.+):(.+)}" match)
  	(push (list :key (aref found 0) :regexp (aref found 1)) lst)))
      (reverse lst)))
  
  
negative.code: 		 (setf (gethash key map) (subseq uri start end))
  		 (setf uri (subseq uri end))))
  	     (multiple-value-bind (start end) (scan token uri)  ;;else
  	       (declare (ignore start))
  	       (setf uri (subseq uri end)))))
      map))
    
  