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 1783 for branches


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/mx-grobner.lisp

    r1782 r1783  
    377377                                (poly-list-lists nil)
    378378                                (value-type nil)
    379                                 (ring-and-order-var 'ring-and-order))
     379                                (ring-and-order-var 'ring-and-order)
     380                                (ring-var 'ring))
    380381                               &body
    381382                                 body
    … …  
    406407      ,value-type
    407408      (let* ((,ring-and-order-var ,(find-ring-and-order-by-name))
    408              (,ring (ro ring-and-order)))
     409             (,ring-var (ro ring-and-order)))
    409410        (let ,(let ((args nil))
    410411                   (dolist (p polynomials args)
Note: See TracChangeset for help on using the changeset viewer.