anchor.diff:  		 "Missing matching '~A' delimiter:~%  => ~S~%  => ~V@T^"
   	       (delimiter error)
   	       (format-string error)
  -	       (1+ (offset error)))))
  +	       (1+ (string-position error)))))
     (:documentation "A missing delimiter error."))
   
   
  
positive.code: 		      (directive-character directive))
  		    (1+ closing-character))
  	  (error 'missing-delimiter
  		 :format-string string
  		 :offset start
  		 :delimiter character)))))
    (:method (string start (directive function-directive))
      "Method for function directives."
  
negative.code: 		    ((char= char #\')
  		     (incf index)
  		     (when (= index end)
  		       (error 'missing-string-directive
  			      :string string
  			      :position start))
  		     (skip-comma))
  		    ((char= char #\,)
  		     (incf index))
  		    ((char= char #\:)
  		     (if colonp
  			 (error 'spurious-modifier
  				:string string
  				:position index
  				:modifier #\:)
  		       (setf colonp t))
  		     (incf index))
  		    ((char= char #\@)
  		     (if atsignp
  			 (error 'spurious-modifier
  				:string string
  				:position index
  				:modifier #\@)
  		       (setf atsignp t))
  		     (incf index))
  