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


Ignore:
Timestamp:
2015-06-16T00:26:28-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/pol.lisp

    r1987 r1988  
    116116  (slot-value poly 'termlist))
    117117
    118 (defmethod (setf poly-termlist) ((poly poly) value)
    119   (setf (slot-value poly 'termlist) value))
     118(defmethod (setf poly-termlist) (new-value (poly poly))
     119  (setf (slot-value poly 'termlist) new-value))
    120120
    121121;; Leading term
    … …  
    123123
    124124;; Second term
    125 (defmacro poly-second-lt (p) `(cadar (poly-termlist ,p)))
     125(defmacro poly-second-lt (p) `(cadr (poly-termlist ,p)))
    126126
    127127;; Leading monomial
Note: See TracChangeset for help on using the changeset viewer.