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 909


Ignore:
Timestamp:
2015-06-09T14:15:58-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/ring-and-order.lisp

    r908 r909  
    3535                                                (ring nil ring-supplied-p)
    3636                                                (order nil order-supplied-p)
    37                                                 (primary-elimination-order nil primary-elimination-order-supplied-p)
     37                                                (primary-elimination-order   nil primary-elimination-order-supplied-p)
    3838                                                (secondary_elimination_order nil secondary_elimination_order-supplied-p)
    39                                                 (elimination-order nil elimination-order-supplied-p))))
     39                                                (elimination-order
     40                                                 nil (cond
     41                                                       ((and primary-elimination-order-supplied-p
     42                                                             secondary_elimination_order-supplied-p)
     43                                                        (elimination-order)))))))
    4044  (ring  *ring-of-integers* :type ring)
    4145  (order #'lex> :type function)
Note: See TracChangeset for help on using the changeset viewer.