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 4418


Ignore:
Timestamp:
2016-06-08T09:09:18-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/infix-printer.lisp

    r4417 r4418  
    5454      (incf count)
    5555         
    56       ;; This is to handle unary minus and unary division.
     56      ;; The following code handles unary minus
    5757      ;; Thus:
    5858      ;; (+ x (- y z)) --> X + Y - Z
    … …  
    6363                 (endp (cddr arg))
    6464                 (eq alt-op (car arg)))
    65         (setf arg (cadr arg)
    66               true-sep alt-sep)
     65        (psetf arg     (cadr arg)
     66               true-op (car arg)
     67               alt-sep nil)
     68        ;;(format t "Arg changed: ~S, true-sep: ~S~%" arg true-sep)
    6769        )
    6870
    … …  
    7981        (return-from infix-print-separated-list (values)))
    8082     
    81       (infix-print-to-stream arg stream true-op print-level))))
     83      (infix-print arg stream true-op print-level))))
    8284  (values))
    8385
Note: See TracChangeset for help on using the changeset viewer.