close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 4420


Ignore:
Timestamp:
2016-06-08T09:28:51-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/infix-printer.lisp

    r4419 r4420  
    2727                                     (beg t)
    2828                                     (count 0)
    29                                      true-op
    3029                                     true-sep)
    3130  "Print a list LST using SEP as separator, to stream STREAM. Every
    … …  
    4847   (t
    4948    (dolist (arg lst)
     49
    5050      ;;(format t "Processing arg: ~S~%" arg)
    51       (setf true-op op
    52             true-sep sep)
     51      (setf true-sep sep)
    5352
    5453      (incf count)
    … …  
    6463                 (eq alt-op (car arg)))
    6564        (psetf arg     (cadr arg)
    66                true-op (car arg)
    6765               alt-sep nil)
    6866        ;;(format t "Arg changed: ~S, true-sep: ~S~%" arg true-sep)
    … …  
    8179        (return-from infix-print-separated-list (values)))
    8280     
    83       (infix-print-to-stream arg stream true-op print-level))))
     81      (infix-print-to-stream arg stream op print-level))))
    8482  (values))
    8583
Note: See TracChangeset for help on using the changeset viewer.