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 2513


Ignore:
Timestamp:
2015-06-19T13:05:11-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r2504 r2513  
    6060  (format stream "#<POLY TERMLIST=~A >" (poly-termlist self)))
    6161
    62 (defgeneric insert-item (object item)
    63   (:method ((self poly) (item term))
    64     (push item (poly-termlist self))
    65     self))
    66 
    67 (defgeneric append-item (object item)
    68   (:method ((self poly) (item term))
    69     (setf (cdr (last (poly-termlist self))) (list item))
    70     self))
     62(defmethod insert-item ((self poly) (item term))
     63  (push item (poly-termlist self))
     64  self))
     65
     66(defmethod append-item ((self poly) (item term))
     67  (setf (cdr (last (poly-termlist self))) (list item))
     68  self)
    7169
    7270;; Leading term
Note: See TracChangeset for help on using the changeset viewer.