Changeset 4403
- Timestamp:
- 2016-06-07T19:11:12-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/infix-printer.lisp
r4402 r4403 26 26 (count 0) 27 27 true-sep) 28 "Print a list LST using SEP as separator, to stream STREAM. Every argument 29 is printed usin OP as main operator. PRINT-LEVEL is used to control 30 printing nested expressions as expected: subexpressions at level exceeding 31 PRINT-LEVEL are printed as ellipsis. The argument ALT-OP, if not NIL, replaces 32 operator OP for list elements beyond the first one. Similarly, ALT-SEP replaces 33 SEP for list elements beyond the first one." 34 28 35 (cond 29 36 ((endp lst) nil) … … 44 51 (consp arg) 45 52 (eq alt-op (car arg))) 46 (setf arg (cadr arg) true-sep alt-sep)) 53 ;;(setf arg (cadr arg) true-sep alt-sep) 54 ) 47 55 48 56 (if beg
Note:
See TracChangeset
for help on using the changeset viewer.