(|oldParserAutoloadOnceTrigger|)
(defparameter *gliph-table* '(
    (#\| \|)
    (#\* (* (#\* |**|)))
    (#\( |(|)
    (#\+ (+  (#\- (|+-| (#\> |+->|)))))
    (#\- (-  (#\> |->|)))
    (#\< (<  (#\= |<=|) (#\< |<<|)))
    (#\\ (\\ (#\/ |\\/|)))
    (#\/ (/  (#\\ |/\\|)))
    (#\> (>  (#\= |>=|)))
    (#\= (=  (#\= (|==| (#\> |==>|))) (#\> |=>|)))
    (#\. (\. (#\. |..|)))
    (#\^ (^  (#\= |^=|)))
    (#\~ (\~ (#\= |~=|)))
    (#\: (\: (#\= |:=|) (#\- |:-|) (#\: |::|)))
))

(DEFUN |PARSE-ReductionOp| ()
  (AND (GETL (CURRENT-SYMBOL) '|Led|)
       (MATCH-NEXT-TOKEN 'GLIPH '/)
       (PUSH-REDUCTION '|PARSE-ReductionOp| (CURRENT-SYMBOL))
       (ACTION (ADVANCE-TOKEN)) (ACTION (ADVANCE-TOKEN))))