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 4116


Ignore:
Timestamp:
2016-06-01T13:52:10-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r4115 r4116  
    453453  self)
    454454
    455 (defgeneric add-2 (object1 object2)
    456   (:documentation "Non-destructively add OBJECT1 to OBJECT2.")
    457   (:method ((object1 t) (object2 t))
    458     (add-to (copy-instance object1) (copy-instance object2))))
    459 
    460455(defun add (&rest summands)
    461456  "Non-destructively adds list SUMMANDS."
Note: See TracChangeset for help on using the changeset viewer.