Changeset 2757
- Timestamp:
- 2015-06-20T19:18:50-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r2756 r2757 131 131 ) 132 132 (equal-p 133 (let ((s (funcall ,add/subtract- fun(lc p) (lc q))))133 (let ((s (funcall ,add/subtract-method-name (lc p) (lc q)))) 134 134 (cond 135 135 ((r-zerop s) … … 144 144 ;;Negate the term of Q if UMINUS provided, signallig 145 145 ;;that we are doing subtraction 146 ,@(when uminus- fun-supplied-p147 `((setf (lc q) (funcall ,uminus-fun(lc q)))))146 ,@(when uminus-method-name-supplied-p 147 `((setf (lc q) (funcall #',uminus-method-name (lc q))))) 148 148 (rotatef (cdr q) r q))))))) 149 149
Note:
See TracChangeset
for help on using the changeset viewer.