Changeset 4356
- Timestamp:
- 2016-06-06T17:52:20-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/rational-field.lisp
r4341 r4356 101 101 (defmethod make-unit-for ((object rational-field)) 102 102 (copy-instance *rational-field-unit*)) 103 104 (defmethod universal-ezgcd ((object rational-field) (other rational-field)) 105 (with-slots (value) 106 object 107 (with-slots ((other-value value)) 108 other 109 (values (make-instance 'rational-field :value 1) 110 (make-instance 'integer-ring :value value) 111 (make-instance 'integer-ring :value other-value c)))))
Note:
See TracChangeset
for help on using the changeset viewer.