Changeset 4019
- Timestamp:
- 2016-05-31T13:11:58-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/symbolic-polynomial.lisp
r3902 r4019 151 151 (every #'poly-equal-no-sugar-p p q)) 152 152 153 (defmethod -> infix:around ((self symbolic-poly) &optional (vars (symbolic-poly-vars self)))153 (defmethod ->sexp :around ((self symbolic-poly) &optional (vars (symbolic-poly-vars self))) 154 154 "Convert a symbolic polynomial SELF to infix form, using variables VARS. The default 155 155 value of VARS is the corresponding slot value of SELF." … … 161 161 ;; Ensure that the number of variables matches the dimension 162 162 (assert (= (length vars) (poly-dimension self))) 163 (infix-print (-> infixself vars)))163 (infix-print (->sexp self vars))) 164 164 (:method ((self symbolic-poly) &optional (vars (symbolic-poly-vars self))) 165 (infix-print (-> infixself vars))))165 (infix-print (->sexp self vars))))
Note:
See TracChangeset
for help on using the changeset viewer.