;;;--------------------------------------------------------------------------
;;; Numerical precedence.
-(export '(operator-left-precedence operator-right-precedence))
+(export '(operator-left-precedence operator-right-precedence
+ operator-associativity))
(defgeneric operator-left-precedence (operator)
(:documentation
"Return the OPERATOR's left-precedence.