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 3919


Ignore:
Timestamp:
2016-05-29T21:40:50-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/pair-queue.lisp

    r3918 r3919  
    2626           "PAIR-FIRST"
    2727           "PAIR-SECOND"
    28            "PAIR-SUGAR"
    2928           "PAIR-DIVISION-DATA"
    3029           "*PAIR-KEY-FUNCTION*"
    … …  
    4544(in-package :pair-queue)
    4645
    47 (defstruct (pair
    48             (:constructor make-pair (first second
    49                                            &aux
    50                                            (division-data nil))))
    51   (first nil :type poly)
    52   (second nil :type poly)
    53   (division-data nil :type list))
     46(defclass critical-pair ()
     47  ((first :initform nil :initarg :first)
     48   (second :initform nil :initarg :second))
     49  (:documentation "Represents a critical pair."))
     50
    5451 
    5552(defvar *pair-key-function* nil
Note: See TracChangeset for help on using the changeset viewer.