fix missing paren in print :fancy
Toshimi Sawada
4 years ago
392 | 392 | (princ ")" stream)))) |
393 | 393 | ;; mix fix operators |
394 | 394 | (t (let ((prec-test (and (get-method-precedence hd) |
395 | (< prec (get-method-precedence hd)))) ; was <= | |
395 | (<= prec (get-method-precedence hd)))) | |
396 | 396 | (assoc-test (method-is-associative hd)) |
397 | 397 | (token-seq (operator-token-sequence |
398 | 398 | (method-operator hd))) |