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


Ignore:
Timestamp:
2015-06-10T20:39:46-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/division.lisp

    r1179 r1180  
    126126;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    127127
    128 (defun normal-form-step (ring fl p r c division-count
    129                          &aux (g (find (poly-lm p) fl
    130                                        :test #'monom-divisible-by-p
    131                                        :key #'poly-lm)))
     128(defun normal-form-step (ring-and-order fl p r c division-count
     129                         &aux
     130                           (ring (ro-ring ring-and-order))
     131                           (g (find (poly-lm p) fl
     132                                    :test #'monom-divisible-by-p
     133                                    :key #'poly-lm)))
    132134  (cond
    133135   (g                                   ;division possible
Note: See TracChangeset for help on using the changeset viewer.