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 3135 for branches/f4grobner


Ignore:
Timestamp:
2015-06-22T11:12:02-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/term.lisp

    r3134 r3135  
    4545
    4646(defmethod print-object ((self term) stream)
    47   (format stream "#<TERM DIMENSION=~A EXPONENTS=~A VALUE=~A>"
     47  (format stream "#<TERM DIMENSION=~A EXPONENTS=~A COEFF=~A>"
    4848          (monom-dimension self)
    4949          (monom-exponents self)
    50           (scalar-value self)))
     50          (scalar-coeff self)))
    5151
    5252(defmethod shared-initialize ((self term) slot-names
     
    6868  ;; value of the coefficient should be preserved.
    6969  (unless (slot-boundp new 'coeff)
    70     (setf (term-coeff new) 1))
     70    (setf (scalar-coeff new) 1))
    7171  new)
    7272
     
    114114
    115115(defmethod unary-minus ((self term))
    116   (setf (term-coeff self) (unary-minus (term-coeff self)))
     116  (setf (scalar-coeff self) (unary-minus (scalar-coeff self)))
    117117  self)
    118118
     
    122122
    123123(defmethod r-zerop ((self term))
    124   (r-zerop (term-coeff self)))
     124  (r-zerop (scalar-coeff self)))
    125125
    126126#|
     
    129129  "A human-readable representation of a term as a cons (MONOM . COEFF)."
    130130  (declare (type term term))
    131   (cons (monom->list (term-monom term)) (term-coeff term)))
     131  (cons (monom->list (term-monom term)) (scalar-coeff term)))
    132132
    133133|#
Note: See TracChangeset for help on using the changeset viewer.