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 3238


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/symbolic-polynomial.lisp

    r3236 r3238  
    3030
    3131(defclass symbolic-poly (poly)
    32   ((vars :initarg :vars :accessor vars))
     32  ((vars :initarg :vars :accessor symbolic-poly-vars))
    3333  (:default-initargs :termlist nil :vars nil))
     34
     35(defmethod print-object ((self poly) stream)
     36  (print-unreadable-object (self stream)
     37    (with-accessors ((termlist poly-termlist)
     38                     (order poly-term-order)
     39                     (vars symbolic-poly-vars))
     40        self
     41      (format stream "TERMLIST=~A ORDER=~A VARS=~A"
     42              termlist order vars))))
     43
    3444
    3545#|
Note: See TracChangeset for help on using the changeset viewer.