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 2967


Ignore:
Timestamp:
2015-06-21T14:29:07-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/term.lisp

    r2954 r2967  
    115115  self)
    116116
    117 (defun copy-term (term)
    118   (make-instance 'term
    119                  :dimension (monom-dimension term)
    120                  :exponents (copy-seq (monom-exponents term))
    121                  :coeff (term-coeff term)))
    122 
    123117(defmethod r* ((term1 term) (term2 term))
    124118  "Non-destructively multiply TERM1 by TERM2."
    125   (multiply-by (copy-term term1) (copy-term term2)))
     119  (multiply-by (copy-instance term1) (copy-instance term2)))
    126120
    127121(defmethod r-zerop ((self term))
Note: See TracChangeset for help on using the changeset viewer.