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 4414


Ignore:
Timestamp:
2016-06-07T22:13:22-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/infix-printer.lisp

    r4413 r4414  
    2929                                     true-op
    3030                                     true-sep)
    31   "Print a list LST using SEP as separator, to stream STREAM. Every argument
    32 is printed usin OP as main operator. PRINT-LEVEL is used to control
    33 printing nested expressions as expected: subexpressions at level exceeding
    34 PRINT-LEVEL are printed as ellipsis. The argument ALT-OP, if not NIL, replaces
    35 operator OP for list elements beyond the first one. Similarly, ALT-SEP replaces
    36 SEP for list elements beyond the first one."
     31  "Print a list LST using SEP as separator, to stream STREAM. Every
     32argument is printed usin OP as main operator. PRINT-LEVEL is used to
     33control printing nested expressions as expected: subexpressions at
     34level exceeding PRINT-LEVEL are printed as ellipsis. The argument BEG
     35indicates whether this is the start of a sequence of arguments with
     36the main operator OP.  The argument ALT-OP, if not NIL, replaces
     37operator OP for list elements beyond the first one. Similarly, ALT-SEP
     38replaces SEP for list elements beyond the first one."
    3739
    3840  (cond
    … …  
    6163                 (endp (cddr arg))
    6264                 (eq alt-op (car arg)))
    63         (setf arg (cadr arg) true-sep alt-sep)
     65        (setf arg (cadr arg)
     66              true-sep alt-sep)
    6467        )
    6568
Note: See TracChangeset for help on using the changeset viewer.