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 4400 for branches


Ignore:
Timestamp:
2016-06-07T17:06:52-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/infix-printer.lisp

    r4399 r4400  
    123123      (otherwise               
    124124       (cond
     125
    125126         ;; Handle array references
    126127         ((eq (car expr) 'aref)
    … …  
    130131          (infix-print-separated-list (cddr expr) '\, stream '\, (1+ print-level))
    131132          (format stream "]"))
     133
    132134         ;; Handle lists
    133135         ((and (symbolp (car expr))
    … …  
    136138          (infix-print-separated-list (cdr expr) '\, stream '\, (1+ print-level))
    137139          (format stream "]"))
     140
    138141         ;; Handle generic function call syntax
    139142         (t
Note: See TracChangeset for help on using the changeset viewer.