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


Ignore:
Timestamp:
2015-06-19T11:12:03-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r2486 r2487  
    9999  (length (poly-termlist self)))
    100100
    101 (defmethod multiply-by ((self poly) (other scalar))
    102   (mapc #'(lambda (term) (multiply-by term other)) (poly-termlist self))
    103   self)
    104 
    105101(defmethod multiply-by ((self poly) (other monom))
    106102  (mapc #'(lambda (term) (multiply-by term monom)) (poly-termlist self))
    107103  self)
     104
     105(defmethod multiply-by ((self poly) other)
     106  (mapc #'(lambda (term) (multiply-by term other)) (poly-termlist self))
     107  self)
     108
    108109
    109110(defgeneric add-to (self other)
Note: See TracChangeset for help on using the changeset viewer.