anchor.diff:                                                                        OMETA::NULLARG)
                                                                      (OMETA::OMETA-APPLY
                                                                       OMETA::O
  -                                                                    'OMETA::TOKEN
  +                                                                    'OMETA:TOKEN
                                                                       (LIST
                                                                        ":")))
                                                                    (LAMBDA
  
positive.code:                                                                           OMETA::O
                                                                            'OMETA::EXPR3
                                                                            NIL)))))))))))
                                        (SETF XS OMETA::V)
                                        OMETA::V))
                                    (LAMBDA (OMETA::O OMETA::NULLARG)
                                      `(:AND ,@XS))))))
  
negative.code:                                                              (OMETA::O
                                                                OMETA::NULLARG)
                                                             (OMETA::OMETA-APPLY
                                                              OMETA::O
                                                              'OMETA::EMPTY NIL))
                                                           (LAMBDA
                                                               (OMETA::O
                                                                OMETA::NULLARG)
  