Changeset 3135 for branches

Timestamp:

2015-06-22T11:12:02-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/term.lisp

@@ -45 +45 @@
 
 (defmethod print-object ((self term) stream)
-  (format stream "#<TERM DIMENSION=~A EXPONENTS=~A VALUE=~A>"
+  (format stream "#<TERM DIMENSION=~A EXPONENTS=~A COEFF=~A>"
           (monom-dimension self)
           (monom-exponents self)
-          (scalar-value self)))
+          (scalar-coeff self)))
 
 (defmethod shared-initialize ((self term) slot-names
@@ -68 +68 @@
   ;; value of the coefficient should be preserved.
   (unless (slot-boundp new 'coeff)
-    (setf (term-coeff new) 1))
+    (setf (scalar-coeff new) 1))
   new)
 
@@ -114 +114 @@
 
 (defmethod unary-minus ((self term))
-  (setf (term-coeff self) (unary-minus (term-coeff self)))
+  (setf (scalar-coeff self) (unary-minus (scalar-coeff self)))
   self)
 
@@ -122 +122 @@
 
 (defmethod r-zerop ((self term))
-  (r-zerop (term-coeff self)))
+  (r-zerop (scalar-coeff self)))
 
 #|
@@ -129 +129 @@
   "A human-readable representation of a term as a cons (MONOM . COEFF)."
   (declare (type term term))
-  (cons (monom->list (term-monom term)) (term-coeff term)))
+  (cons (monom->list (term-monom term)) (scalar-coeff term)))
 
 |#