anchor.diff:     *Description:*
   
      {=one-of} consumes the next item and succeeds with that item as its
  -   result if the item is {eql} to any _object_ in _list_. Fails if the
  -   input is empty."
  +   result if the item is {eql} to any _object_ in _list_."
     (=let* ((item (=item)))
       (if (find item list :test 'eql)
   	(=result item)
  
positive.code: 
     {=not} consumes the next item and succeeds with that item as its
     result if _parser_ would fail. E.g. it negates _parser_. Note that
     _parser_ is not actually applied to the input. Fails if the input is
     empty."
    (=if parser (=fail) (=item)))
  
  (defun =prog1 (parser &rest parsers)
  
negative.code:    *Description:*
  
     {=satisfies} consumes the next item and succeeds with that item as its
     result if the result satisfies _predicate_."
    (=bind (=item)
  	(lambda (x)
  	  (if (funcall predicate x)
  