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 2483


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r2474 r2483  
    9999  (length (poly-termlist self)))
    100100
    101 
    102 #|
    103 
    104 (defgeneric multiply-by (self other)
    105   (:method ((self poly) (other scalar))
    106     (mapc #'(lambda (term) (multiply-by term other)) (poly-termlist self))
    107     self)
    108   (:method ((self poly) (other monom))
    109     (mapc #'(lambda (term) (multiply-by term monom)) (poly-termlist self))
    110     self))
     101(defmethod multiply-by ((self poly) (other scalar))
     102  (mapc #'(lambda (term) (multiply-by term other)) (poly-termlist self))
     103  self)
     104
     105(defmethod multiply-by ((self poly) (other monom))
     106  (mapc #'(lambda (term) (multiply-by term monom)) (poly-termlist self))
     107  self)
     108
    111109
    112110(defgeneric add-to (self other)
Note: See TracChangeset for help on using the changeset viewer.