Changeset 4420
- Timestamp:
- 2016-06-08T09:28:51-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/infix-printer.lisp
r4419 r4420 27 27 (beg t) 28 28 (count 0) 29 true-op30 29 true-sep) 31 30 "Print a list LST using SEP as separator, to stream STREAM. Every … … 48 47 (t 49 48 (dolist (arg lst) 49 50 50 ;;(format t "Processing arg: ~S~%" arg) 51 (setf true-op op 52 true-sep sep) 51 (setf true-sep sep) 53 52 54 53 (incf count) … … 64 63 (eq alt-op (car arg))) 65 64 (psetf arg (cadr arg) 66 true-op (car arg)67 65 alt-sep nil) 68 66 ;;(format t "Arg changed: ~S, true-sep: ~S~%" arg true-sep) … … 81 79 (return-from infix-print-separated-list (values))) 82 80 83 (infix-print-to-stream arg stream true-op print-level))))81 (infix-print-to-stream arg stream op print-level)))) 84 82 (values)) 85 83
Note:
See TracChangeset
for help on using the changeset viewer.