- Timestamp:
- 2015-06-20T18:56:02-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r2742 r2743 137 137 ) 138 138 (t 139 ;;Negate the term of Q if UMINUS provided 139 ;;Negate the term of Q if UMINUS provided, signallig 140 ;;that we are doing subtraction 140 141 ,@(when uminus-fun-supplied-p 141 142 `((setf (lc q) (funcall ,uminus-fun (lc q))))) 142 (rotatef (cdr q) r q))))))) )143 (rotatef (cdr q) r q))))))) 143 144 144 145
Note:
See TracChangeset
for help on using the changeset viewer.