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 1982


Ignore:
Timestamp:
2015-06-15T21:59:38-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/pol.lisp

    r1981 r1982  
    8989  ))
    9090
    91 (defun make-poly-from-termlist (termlist &optional (sugar (termlist-sugar termlist))))
    92 (defun make-poly-zero (&aux (termlist nil) (sugar -1)))
     91(defun make-poly-from-termlist (termlist &optional (sugar (termlist-sugar termlist)))
     92  (make-instance 'poly :termlist termlist :sugar sugar))
     93
     94(defun make-poly-zero (&aux (termlist nil) (sugar -1))
     95  (make-instance 'poly :termlist termlist :sugar sugar))
     96
    9397(defun make-poly-variable (ring nvars pos &optional (power 1)
    9498                           &aux
Note: See TracChangeset for help on using the changeset viewer.