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


Ignore:
Timestamp:
2015-06-17T20:09:13-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/ring.lisp

    r2104 r2105  
    5656  (:method ((self number)) (cl:zerop self)))
    5757
    58 (defgeneric add (x y)
    59   (:method ((x number) (y number)) (+ x y)))
     58(defgeneric + (x y)
     59  (:method ((x number) (y number)) (cl:+ x y)))
    6060
    61 (defgeneric mul (x y)
    62   (:method ((x number) (y number)) (* x y)))
     61(defgeneric * (x y)
     62  (:method ((x number) (y number)) (cl:* x y)))
    6363
    64 (defgeneric tensor-mul (x y))
     64(defgeneric tensor-times (x y))
    6565
    66 (defgeneric div (x y)
    67   (:method ((x number) (y number)) (/ x y)))
     66(defgeneric / (x y)
     67  (:method ((x number) (y number)) (cl:/ x y)))
    6868
    6969(defgeneric lcm (x y)
    … …  
    7373  (:method ((x integer) (y integer)
    7474            &aux (c (cl:gcd x y)))
    75     (values c (/ x c) (/ y c))))
     75    (values c (cl:/ x c) (cl:/ y c))))
    7676
    7777(defgeneric gcd (x y)
Note: See TracChangeset for help on using the changeset viewer.