Changeset 4244
- Timestamp:
- 2016-06-04T19:57:33-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/integer-ring.lisp
r4238 r4244 86 86 self) 87 87 88 (defmethod universal-zerop ((self integer-ring)) 89 (with-slots (value) 90 self 91 (zerop value))) 92 88 93 (defmethod universal-ezgcd ((self integer-ring) (other integer-ring)) 89 94 (with-slots (value) … … 93 98 (setf value (gcd value other-value)))) 94 99 self) 100 101 95 102 96 103 (defmethod universal-equalp ((self integer-ring) (other integer-ring))
Note:
See TracChangeset
for help on using the changeset viewer.