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 3160 for branches/f4grobner


Ignore:
Timestamp:
2015-06-22T12:22:00-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/term.lisp

    r3159 r3160  
    4646
    4747(defmethod print-object ((self term) stream)
    48   (format stream "#<TERM DIMENSION=~A EXPONENTS=~A COEFF=~A>"
    49           (monom-dimension self)
    50           (monom-exponents self)
    51           (scalar-coeff self)))
     48  (with-slots (dimension exponents coeff)
     49      self
     50    (format stream "#<TERM DIMENSION=~A EXPONENTS=~A COEFF=~A>"
     51            dimension
     52            exponents
     53            coeff))
     54  self)
     55   
    5256
    5357(defmethod r-equalp ((term1 term) (term2 term))
Note: See TracChangeset for help on using the changeset viewer.