Changeset 42 in CGBLisp for trunk

Timestamp:

Feb 1, 2009, 7:09:12 PM (17 years ago)

Author:

Marek Rychlik

Message:

Cleaned up handling argument lists.

File:

• trunk/src/infix-printer.lisp (modified) (1 diff)

trunk/src/infix-printer.lisp

@@ -57 +57 @@
   (values))
 
-
-(defun infix-print-arg-list (lst stream print-level
-                             &aux (count 0))
-  "Print a comma-separated list"
-
-  ;; Arguments never need to be parenthesized?
-  (dolist (e (butlast lst))
-    (infix-print e stream (1+ print-level))
-    (when (and (numberp *print-length*)
-               (> count *print-length*))
-      (format stream "...")
-      (return-from infix-print-arg-list (values)))
-    (format stream ","))
-  (infix-print (car (last lst)) stream (1+ print-level)))
-    
+(defun infix-print-arg-list (lst stream print-level)
+  "Print a comma-separated list."
+  (infix-print-separated-list lst stream '\, print-level '\,))
 
 (defun infix-print (expr &optional (stream t) (op nil) (print-level 0))