anchor.diff:           data: pchar type char1.
            next_char( ). "Skip past opening quote
            while index < length.
  -           sval = |{ sval }{ char }|.
              if char = '"' and pchar ne '\'.
                exit.
              endif.
  +           concatenate sval char into sval respecting blanks.
  +*           sval = |{ sval }{ char }|.
              pchar = char.
              next_char( ).
            endwhile.
  
positive.code:        case element->type.
           when lcl_lisp_element=>type_lambda.
             str = '<lambda>'.
           when lcl_lisp_element=>type_symbol.
             str = element->value.
           when lcl_lisp_element=>type_number.
             str = element->number.
  
negative.code:        if element = true. result = true. return. endif.
  
         case element->type.
           when lcl_lisp_element=>type_number or lcl_lisp_element=>type_string.
             result = element.  "Number or string evaluates to itself
           when lcl_lisp_element=>type_symbol. "Symbol
             result = environment->find( element->value ). "Look up symbol in environment
  
  