anchor.diff:  
   (defun split-on-placeholders (uri)
     "splits a sequence on the template placeholder blocks"
  -  (let ((lst)
  -	(split-symbol #\U00046A76)) ;;could be anything
  +  (let ((split-symbol #\U00046A76)) ;;could be anything
       (split-sequence split-symbol 
   		    (regex-replace-all "{[^\{]+}" uri (format nil "~c" split-symbol)))))
   
  
positive.code: 		 (setf (gethash key map) (subseq uri start end))
  		 (setf uri (subseq uri end))))
  	     (multiple-value-bind (start end) (scan token uri)  ;;else
  	       (setf uri (subseq uri end)))))
      map))
    
  
negative.code:     (do-matches-as-strings (match "{([^\{]+):([^\}]+)}*" schema) 
        (multiple-value-bind (n/a found)
  	  (scan-to-strings "{(.+):(.+)}" match)
  	(declare (ignore n/a))
  	(push (list :key (aref found 0) :regexp (aref found 1)) lst)))
      (reverse lst)))
  
  