anchor.diff:     *Description:*
   
      {=eql} consumes the next item and succeeds with that item as its
  -   result if the item is {eql} to _object_. Fails if the input is empty."
  +   result if the item is {eql} to _object_."
     (=satisfies (lambda (y) (eql x y))))
   
   (defun =one-of (list)
  
positive.code: 
     {=range} applies _parser_ and, if it succeeds, applies _predicate_ to
     _from_, its results and _to_. {=range} succeeds with the result of
     _parser_ if _predicate_ is _true_ and fails otherwise. Fails if the
     input is empty."
    (=let* ((char parser))
      (if (funcall predicate from char to)
  	(=result char) 
  
negative.code:    *Description:*
  
     {=none-of} consumes the next item and succeeds with that item as its
     result unless the item is {eql} to one of the _objects_ in _list_."
    (=not (=one-of list)))
  
  (defun =range (from to &key (parser (=item)) (predicate 'char<=))
  