Changeset 3133 for branches/f4grobner

Timestamp:

2015-06-22T11:10:14-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/term.lisp (modified) (2 diffs)

branches/f4grobner/term.lisp

@@ -44 +44 @@
 and powers of some variables, such as 5*X^2*Y^3."))
 
-(defmethod r-coeff ((self term))
-  (term-coeff self))
-
-(defmethod (setf r-coeff) (new-value (self term))
-  (setf (term-coeff self) new-value))
-
 (defmethod r-equalp ((term1 term) (term2 term))
   (and (r-equalp (term-coeff term1) (term-coeff term2))
@@ -55 +49 @@
 
 (defmethod print-object ((self term) stream)
-  (format stream "#<TERM DIMENSION=~A EXPONENTS=~A COEFF=~A>"
-          (r-dimension self)
-          (r-exponents self)
-          (r-coeff self)))
+  (format stream "#<TERM DIMENSION=~A EXPONENTS=~A VALUE=~A>"
+          (monom-dimension self)
+          (monom-exponents self)
+          (scalar-value self)))
 
 (defmethod shared-initialize ((self term) slot-names