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 2501


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r2500 r2501  
    100100
    101101(defmethod multiply-by ((self poly) (other monom))
    102   (mapc #'(lambda (term) (multiply-by term other)) (poly-termlist self))
     102  (mapc #'(lambda (term) (multiply-by term other))
     103        (poly-termlist self))
    103104  self)
    104105
    105 (defmethod multiply-by ((self poly) other)
    106   (mapc #'(lambda (term) (multiply-by term other)) (poly-termlist self))
     106(defmethod multiply-by ((self poly) (other scalar))
     107  (mapc #'(lambda (term) (multiply-by term other))
     108        (poly-termlist self))
    107109  self)
    108110
Note: See TracChangeset for help on using the changeset viewer.