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 2595


Ignore:
Timestamp:
2015-06-20T00:45:56-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r2594 r2595  
    3030
    3131(defclass poly ()
    32   ((termlist :initarg :termlist :accessor poly-termlist))
    33   (:default-initargs :termlist nil))
     32  ((termlist :initarg :termlist :accessor poly-termlist)
     33   (order :initarg :order :accessor poly-term-order))
     34  (:default-initargs :termlist nil :order #'lex>))
    3435
    3536(defmethod print-object ((self poly) stream)
    36   (format stream "#<POLY TERMLIST=~A >" (poly-termlist self)))
     37  (format stream "#<POLY TERMLIST=~A ORDER=~A>"
     38          (poly-termlist self)
     39          (poly-term-order self)))
    3740
    3841(defmethod insert-item ((self poly) (item term))
Note: See TracChangeset for help on using the changeset viewer.