Changeset 4264
- Timestamp:
- 2016-06-04T20:45:07-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/integer-ring.lisp
r4260 r4264 88 88 self) 89 89 90 (defmethod unary-inverse ((self integer-ring)) 91 (with-slots (value) 92 self 93 (case value 94 (1 self) 95 (-1 self) 96 (otherwise (error "Non-invertible ring element: ~S" self))))) 97 90 98 (defmethod universal-zerop ((self integer-ring)) 91 99 (with-slots (value)
Note:
See TracChangeset
for help on using the changeset viewer.