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 3831 for branches/f4grobner


Ignore:
Timestamp:
2016-05-28T12:00:37-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/symbolic-polynomial.lisp

    r3825 r3831  
    2222(defpackage "SYMBOLIC-POLYNOMIAL"
    2323  (:use :cl :utils :monom :polynomial :infix)
    24   (:export "SYMBOLIC-POLY" "READ-INFIX-FORM" "STRING->POLY" "+LIST-MARKER+")
     24  (:export "SYMBOLIC-POLY" "READ-INFIX-FORM" "STRING->POLY" "POLY->STRING" "+LIST-MARKER+")
    2525  (:documentation "Implements symbolic polynomials. A symbolic
    2626polynomial is polynomial which uses symbolic variables for reading and
     
    207207  "Compare polynomial lists P and Q for equality, ignoring sugar."
    208208  (every #'poly-equal-no-sugar-p p q))
     209
     210(defgeneric poly->string (self)
     211  (:documentation "Render symbolic polynomial as a string")
     212  (:method ((self symbolic-poly))
     213    (infix-print (->infix self (symbolic-poly-vars self)))))
Note: See TracChangeset for help on using the changeset viewer.