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 752 for branches


Ignore:
Timestamp:
2015-06-08T21:11:54-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/term.lisp

    r435 r752  
    3333(in-package :term)
    3434
     35(defstruct (term
     36            (:constructor make-term (monom coeff))
     37            ;;(:constructor make-term-variable)
     38            ;;(:type list)
     39            )
     40  (monom (make-monom 0) :type monom)
     41  (coeff nil))
     42
    3543(defun make-term-variable (ring nvars pos
    3644                                &optional
    … …  
    4957  (make-term monom coeff))
    5058
    51 (defstruct (term
    52             (:constructor make-term (monom coeff))
    53             ;;(:constructor make-term-variable)
    54             ;;(:type list)
    55             )
    56   (monom (make-monom 0) :type monom)
    57   (coeff nil))
    58 
    5959(defun term-mul (ring term1 term2)
    6060  "Returns the product of the terms TERM1 and TERM2,
Note: See TracChangeset for help on using the changeset viewer.