- Timestamp:
- 2015-06-20T19:34:51-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r2764 r2765 122 122 (multiple-value-bind 123 123 (greater-p equal-p) 124 ( ,order-fn (car p) (car q))124 (funcall #',order-fn (car p) (car q)) 125 125 (cond 126 126 (greater-p … … 128 128 ) 129 129 (equal-p 130 (let ((s ( ,add/subtract-fn (lc p) (lc q))))130 (let ((s (funcall #',add/subtract-fn (lc p) (lc q)))) 131 131 (cond 132 132 ((r-zerop s) … … 142 142 ;;that we are doing subtraction 143 143 ,@(when uminus-fn 144 `((setf (lc q) ( ,uminus-fn (lc q)))))144 `((setf (lc q) (funcall #',uminus-fn (lc q))))) 145 145 (rotatef (cdr q) r q))))))) 146 146
Note:
See TracChangeset
for help on using the changeset viewer.