anchor.diff:                                                                           OMETA::NULLARG)
                                                                         (OMETA::OMETA-APPLY
                                                                          OMETA::O
  -                                                                       'OMETA::TOKEN
  +                                                                       'OMETA:TOKEN
                                                                          (LIST
                                                                           "<:")))
                                                                       (LAMBDA
  
positive.code:              (OMETA::OMETA-APPLY OMETA::O 'OMETA::OOR
                                   (LIST
                                    (LAMBDA (OMETA::O OMETA::NULLARG)
                                      (OMETA::OMETA-APPLY OMETA::O 'OMETA::NAME NIL))
                                    (LAMBDA (OMETA::O OMETA::NULLARG)
                                      (OMETA::OMETA-APPLY OMETA::O 'OMETA::OAND
                                                          (LIST
  
negative.code:                                  (LIST
                                    (LAMBDA (OMETA::O OMETA::NULLARG)
                                      (LET ((OMETA::V
                                             (OMETA::OMETA-APPLY OMETA::O
                                                                 'OMETA::LISTOF
                                                                 (LIST "expr4"
                                                                       "|"))))
                                        (SETF OMETA::XS OMETA::V)
                                        OMETA::V))
                                    (LAMBDA (OMETA::O OMETA::NULLARG)
                                      `(:OR ,@XS))))))
  