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 3829


Ignore:
Timestamp:
2016-05-28T01:57:56-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r3828 r3829  
    565565       (universal-equalp (term-coeff term1) (term-coeff term2))))
    566566
    567 (defmethod update-instance-for-different-class :after ((old monom) (new term) &key)
    568   (setf (term-coeff new) 1))
    569 
    570567(defmethod multiply-by :before ((self term) (other term))
    571568  "Destructively multiply terms SELF and OTHER and store the result into SELF.
    … …  
    616613    (with-slots (exponents coeff)
    617614        self
    618       (cons '* coeff
     615      (list* '* coeff
    619616            (mapcan #'(lambda (var power)
    620617                        (cond ((= power 0) nil)
Note: See TracChangeset for help on using the changeset viewer.