Changeset 682
- Timestamp:
- 2015-06-08T16:26:37-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/infix-printer.lisp
r681 r682 150 150 :fill-pointer 0 :adjustable t))) 151 151 (with-output-to-string (s fstr) 152 (infix-print expr s op print-level))152 (infix-print-to-stream expr s op print-level)) 153 153 fstr) 154 154 … … 157 157 If OP is not nil, the expression is parenthesized if its operator 158 158 has lower precedence than OP." 159 (cond 160 ((null stream) 161 (infix-print-to-string expr op print-level)) 162 (t (infix-print-to-stream expr op print-level))))
Note:
See TracChangeset
for help on using the changeset viewer.