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 812


Ignore:
Timestamp:
2015-06-08T23:54:46-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/termlist.lisp

    r788 r812  
    5656          p))
    5757
    58 (defun termlist-extend (p &optional (m (make-monom 1 :initial-element 0)))
     58(defun termlist-extend (p &optional (m (make-monom 1 :initial-exponent 0)))
    5959  "Extend every monomial in a polynomial P by inserting at the
    6060beginning of every monomial the list of powers M."
    … …  
    6868  (declare (fixnum n))
    6969  (mapcar #'(lambda (term)
    70               (make-term (monom-append (make-monom n :initial-element 0)
     70              (make-term (monom-append (make-monom n :initial-exponent 0)
    7171                                       (term-monom term))
    7272                         (term-coeff term)))
Note: See TracChangeset for help on using the changeset viewer.