Changeset 3921
- Timestamp:
- 2016-05-29T21:48:11-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/pair-queue.lisp
r3920 r3921 41 41 42 42 (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)) 45 45 (:documentation "Represents a critical pair.")) 46 46 47 (defmethod print-object ((self poly) stream)47 (defmethod print-object ((self critical-pair) stream) 48 48 (print-unreadable-object (self stream :type t :identity t) 49 49 (with-accessors ((first critical-pair-first)
Note:
See TracChangeset
for help on using the changeset viewer.