close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 4019 for branches/f4grobner


Ignore:
Timestamp:
2016-05-31T13:11:58-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/symbolic-polynomial.lisp

    r3902 r4019  
    151151  (every #'poly-equal-no-sugar-p p q))
    152152
    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)))
    154154  "Convert a symbolic polynomial SELF to infix form, using variables VARS. The default
    155155value of VARS is the corresponding slot value of SELF."
    … …  
    161161    ;; Ensure that the number of variables matches the dimension
    162162    (assert (= (length vars) (poly-dimension self)))
    163     (infix-print (->infix self vars)))
     163    (infix-print (->sexp self vars)))
    164164  (:method ((self symbolic-poly) &optional (vars (symbolic-poly-vars self)))
    165     (infix-print (->infix self vars))))
     165    (infix-print (->sexp self vars))))
Note: See TracChangeset for help on using the changeset viewer.