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


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/pair-queue.lisp

    r449 r450  
    2727
    2828(defpackage "PAIR-QUEUE"
    29   (:use :cl :priority-queue)
     29  (:use :cl :priority-queue :monomial :order)
    3030  (:export "SUGAR-PAIR-KEY"
    3131           "PAIR"
    … …  
    4646           ))
    4747           
     48
     49(in-package :pair-queue)
    4850
    4951(defun sugar-pair-key (p q &aux (lcm (monom-lcm (poly-lm p) (poly-lm q)))
Note: See TracChangeset for help on using the changeset viewer.