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 2916


Ignore:
Timestamp:
2015-06-21T12:42:29-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r2915 r2916  
    170170     self))
    171171
    172 ;;(eval-when (:compile-toplevel :load-toplevel :execute)
     172(eval-when (:compile-toplevel :load-toplevel :execute)
    173173
    174174  (def-add/subtract-method add-to nil
    … …  
    184184no consing, entirely reusing the sells of SELF and OTHER.")
    185185
    186 ;;  )
     186  )
     187
     188
    187189
    188190(defmethod unary-minus ((self poly))
    … …  
    195197  "Destructively adds two termlists P and Q ordered according to ORDER-FN."
    196198  (fast-add/subtract p q order-fn add-to nil))
     199
    197200
    198201(defmacro multiply-term-by-termlist-dropping-zeros (term termlist
    … …  
    234237  self)
    235238
     239
    236240#|
     241
    237242
    238243(defun poly-standard-extension (plist &aux (k (length plist)))
Note: See TracChangeset for help on using the changeset viewer.