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 688


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/infix-printer.lisp

    r687 r688  
    154154
    155155(defun infix-print (expr &optional (stream t) (op nil) (print-level 0))
    156   "Print an expression EXPR in infix notation to stream STREAM or to string.
    157 If OP is not nil, the expression is parenthesized if its operator
    158 has lower precedence than OP. Returns the string containing the printed
    159 expression, or (VALUES) if STREAM is NIL."
     156  "Print an expression EXPR in infix notation to stream STREAM or to
     157string if (NULL STREAM).  If OP is not nil, the expression is
     158parenthesized if its operator has lower precedence than OP. Returns
     159the string containing the printed expression, or (VALUES) if STREAM is
     160NIL."
    160161  (cond
    161162    ((null stream)
Note: See TracChangeset for help on using the changeset viewer.