Changeset 4412 for branches

Timestamp:

2016-06-07T21:00:08-07:00 (8 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/infix-printer.lisp (modified) (3 diffs)

branches/f4grobner/infix-printer.lisp

@@ -23 +23 @@
                                    &optional (alt-op nil) (alt-sep alt-op)
                                    &aux
-                                   (beg t)
-                                   (count 0)
-                                   true-sep)
+                                     (beg t)
+                                     (count 0)
+                                     true-op
+                                     true-sep)
   "Print a list LST using SEP as separator, to stream STREAM. Every argument
 is printed usin OP as main operator. PRINT-LEVEL is used to control
@@ -44 +45 @@
     (dolist (arg lst)
       ;;(format t "Processing arg: ~S~%" arg)
-      (setf true-sep sep)
+      (setf true-op op
+            true-sep sep)
+
       (incf count)
-
+          
       ;; This is to handle unary minus and unary division.
       ;; Thus:
@@ -69 +72 @@
         (return-from infix-print-separated-list (values)))
       
-      (infix-print arg stream op print-level))))
+      (infix-print-to-stream arg stream true-op print-level))))
   (values))