Changeset 42 in CGBLisp
- Timestamp:
- Feb 1, 2009, 7:09:12 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/infix-printer.lisp
r41 r42 57 57 (values)) 58 58 59 60 (defun infix-print-arg-list (lst stream print-level 61 &aux (count 0)) 62 "Print a comma-separated list" 63 64 ;; Arguments never need to be parenthesized? 65 (dolist (e (butlast lst)) 66 (infix-print e stream (1+ print-level)) 67 (when (and (numberp *print-length*) 68 (> count *print-length*)) 69 (format stream "...") 70 (return-from infix-print-arg-list (values))) 71 (format stream ",")) 72 (infix-print (car (last lst)) stream (1+ print-level))) 73 59 (defun infix-print-arg-list (lst stream print-level) 60 "Print a comma-separated list." 61 (infix-print-separated-list lst stream '\, print-level '\,)) 74 62 75 63 (defun infix-print (expr &optional (stream t) (op nil) (print-level 0))
Note:
See TracChangeset
for help on using the changeset viewer.