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 2506


Ignore:
Timestamp:
2015-06-19T11:40:01-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/ring.lisp

    r2505 r2506  
    3535  (:use :cl)
    3636  (:export "R-PARSE"
    37            "R-UNIT-FOR"
     37           "UNIT-ELEMENT"
    3838           "R-ZEROP"
    3939           "R+"
    … …  
    7878  (:documentation "Wraps objects suitable as scalars/polynomial coefficients"))
    7979
    80 (defgeneric r-unit-for (object)
    81   (:method ((self number)) 1))
     80(defgeneric unit-element (class)
     81  (:method ((self (find-class 'number)) 1)))
    8282
    8383(defgeneric r-zerop (object)
Note: See TracChangeset for help on using the changeset viewer.