(|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))))