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 4127


Ignore:
Timestamp:
2016-06-01T14:22:18-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r4100 r4127  
    563563              exponents coeff))))
    564564
     565(defmethod copy-instance :around ((object term)  &rest initargs &key &allow-other-keys)
     566  "An :AROUND method of COPY-INSTANCE. It replaces the coefficient with a fresh copy."
     567    (declare (ignore object initargs))
     568    (let ((copy (call-next-method)))
     569      (setf (term-coeff copy) (copy-instance (term-coeff)))
     570      copy))
     571
    565572(defmethod multiply-by ((self term) (other number))
    566573  (reinitialize-instance self :coeff (multiply-by (term-coeff self) other)))
Note: See TracChangeset for help on using the changeset viewer.