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