- Timestamp:
- 2015-08-27T08:46:30-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/ring.lisp
r3388 r3389 105 105 106 106 (defgeneric r* (x y) 107 (:method (x y (* x y))107 (:method (x y) (* x y)) 108 108 (:documentation "Multiplies ring elements.")) 109 109 … … 126 126 (defgeneric r-expt (x y) 127 127 (:method ((x integer) (y integer)) (expt x y)) 128 (:method ( x(y integer))128 (:method ((x t) (y integer)) 129 129 (declare (type fixnum y)) 130 130 (cond
Note:
See TracChangeset
for help on using the changeset viewer.