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 3921


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/pair-queue.lisp

    r3920 r3921  
    4141
    4242(defclass critical-pair ()
    43   ((first :initform nil  :initarg :first :accessor critical-pair-first)
    44    (second :initform nil :initarg :second :accessor critical-pair-second))
     43  ((first :initform nil  :initarg :first :accessor critical-pair-first :type poly)
     44   (second :initform nil :initarg :second :accessor critical-pair-second :type poly))
    4545  (:documentation "Represents a critical pair."))
    4646
    47 (defmethod print-object ((self poly) stream)
     47(defmethod print-object ((self critical-pair) stream)
    4848  (print-unreadable-object (self stream :type t :identity t)
    4949    (with-accessors ((first critical-pair-first)
Note: See TracChangeset for help on using the changeset viewer.