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 1843


Ignore:
Timestamp:
2015-06-15T14:07:49-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r1668 r1843  
    242242  (setf f-x (poly-list-add-variables f k)
    243243        plist-x (mapcar #'(lambda (x)
    244                             (setf (poly-termlist x) (nconc (poly-termlist x)
    245                                                            (list (make-term (make-monom :dimension d)
    246                                                                             (funcall (ring-uminus ring) (funcall (ring-unit ring)))))))
     244                            (setf (poly-termlist x)
     245                                  (nconc (poly-termlist x)
     246                                         (list (make-term :monom (make-monom :dimension d)
     247                                                          :coeff (funcall (ring-uminus ring) (funcall (ring-unit ring)))))))
    247248                            x)
    248249                        (poly-standard-extension plist)))
Note: See TracChangeset for help on using the changeset viewer.