- Timestamp:
- 2016-06-04T20:36:36-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/integer-ring.lisp
r4259 r4260 98 98 (with-slots ((other-value value)) 99 99 other 100 ( setf value (gcd value other-value))))101 self) 100 (make-instance 'integer-ring :value (gcd value other-value))))) 101 102 102 103 103 (defmethod universal-ezgcd ((object integer-ring) (other integer-ring))
Note:
See TracChangeset
for help on using the changeset viewer.