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 4403


Ignore:
Timestamp:
2016-06-07T19:11:12-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/infix-printer.lisp

    r4402 r4403  
    2626                                   (count 0)
    2727                                   true-sep)
     28  "Print a list LST using SEP as separator, to stream STREAM. Every argument
     29is printed usin OP as main operator. PRINT-LEVEL is used to control
     30printing nested expressions as expected: subexpressions at level exceeding
     31PRINT-LEVEL are printed as ellipsis. The argument ALT-OP, if not NIL, replaces
     32operator OP for list elements beyond the first one. Similarly, ALT-SEP replaces
     33SEP for list elements beyond the first one."
     34
    2835  (cond
    2936   ((endp lst) nil)
    … …  
    4451                 (consp arg)
    4552                 (eq alt-op (car arg)))
    46         (setf arg (cadr arg) true-sep alt-sep))
     53        ;;(setf arg (cadr arg) true-sep alt-sep)
     54        )
    4755
    4856      (if beg
Note: See TracChangeset for help on using the changeset viewer.