- Timestamp:
- 2015-09-07T19:26:27-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/symbolic-polynomial.lisp
r3723 r3724 50 50 51 51 52 (defmethod r-equalp ((self symbolic-poly) (other symbolic-poly))53 (when ( r-equalp (symbolic-poly-vars self) (symbolic-poly-vars other))52 (defmethod universal-equalp ((self symbolic-poly) (other symbolic-poly)) 53 (when (universal-equalp (symbolic-poly-vars self) (symbolic-poly-vars other)) 54 54 (call-next-method))) 55 55
Note:
See TracChangeset
for help on using the changeset viewer.