Changeset 4399
- Timestamp:
- 2016-06-07T16:54:49-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/infix-printer.lisp
r4398 r4399 123 123 (otherwise 124 124 (cond 125 126 125 ;; Handle array references 127 126 ((eq (car expr) 'aref) … … 131 130 (infix-print-separated-list (cddr expr) '\, stream '\, (1+ print-level)) 132 131 (format stream "]")) 133 134 132 ;; Handle lists 135 133 ((and (symbolp (car expr)) … … 138 136 (infix-print-separated-list (cdr expr) '\, stream '\, (1+ print-level)) 139 137 (format stream "]")) 140 141 138 ;; Handle generic function call syntax 142 139 (t 143 144 140 (format stream "~a(" (car expr)) 145 141 (infix-print-arg-list (cdr expr) stream (1+ print-level))
Note:
See TracChangeset
for help on using the changeset viewer.