Changeset 97 in CGBLisp

Timestamp:

Feb 2, 2009, 1:01:23 AM (15 years ago)

Author:

Marek Rychlik

Message:

Fixed order of arguments.

File:

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

trunk/src/infix-printer.lisp

@@ -59 +59 @@
 (defun infix-print-arg-list (lst stream print-level)
   "Print a comma-separated list."
-  (infix-print-separated-list lst '\, stream print-level '\,))
+  (infix-print-separated-list lst '\, stream '\, print-level))
 
 (defun infix-print (expr &optional (stream t) (op nil) (print-level 0))