- Timestamp:
- 2016-05-31T10:42:26-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/infix-printer.lisp
r4005 r4006 81 81 ;; Check if the operator of this expression has lower precedence 82 82 ;; than the surrounding operator, and parenthesize if necessary 83 ((and op (operator-lessp (car expr) op)) 83 ((and op 84 (operator-lessp (car expr) op)) 84 85 (format stream "(") 85 86 (infix-print expr stream nil (1+ print-level))
Note:
See TracChangeset
for help on using the changeset viewer.