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 681


Ignore:
Timestamp:
2015-06-08T16:24:57-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/infix-printer.lisp

    r680 r681  
    6161  (infix-print-separated-list lst '\, stream '\, print-level))
    6262
    63 (defun infix-print (expr &optional (stream t) (op nil) (print-level 0))
     63(defun infix-print-to-stream (expr &optional (stream t) (op nil) (print-level 0))
    6464  "Print an expression EXPR in infix notation to stream STREAM.
    6565If OP is not nil, the expression is parenthesized if its operator
    … …  
    152152    (infix-print expr s op print-level))
    153153  fstr)
     154
     155(defun infix-print (expr &optional (stream t) (op nil) (print-level 0))
     156  "Print an expression EXPR in infix notation to stream STREAM.
     157If OP is not nil, the expression is parenthesized if its operator
     158has lower precedence than OP."
Note: See TracChangeset for help on using the changeset viewer.