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


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/polynomial.lisp

    r3221 r3237  
    4747
    4848(defmethod print-object ((self poly) stream)
    49   (format stream "#<POLY TERMLIST=~A ORDER=~A>"
    50           (poly-termlist self)
    51           (poly-term-order self)))
     49  (print-unreadable-object (self stream)
     50    (with-accessors ((termlist poly-termlist) (order poly-term-order))
     51        self
     52      (format stream "TERMLIST=~A ORDER=~A"
     53              termlist order))))
    5254
    5355(defgeneric change-term-order (self other)
Note: See TracChangeset for help on using the changeset viewer.