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 2041 for branches/f4grobner


Ignore:
Timestamp:
2015-06-17T18:15:50-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/ring.lisp

    r2040 r2041  
    118118           
    119119
    120 (defgeneric ring-dimension (object))
    121 (defgeneric ring-elt (object index))
    122 (defgeneric (setf ring-elt) (new-value object index))
     120(defgeneric ring-dimension (object)
     121  (:method ((object integer)) 1))
     122
     123(defgeneric ring-elt (object index)
     124  (:method ((object integer))
     125    (error "Integer is atomic, so it cannot be subscripted")))
     126
     127(defgeneric (setf ring-elt)
     128    (new-value object index))
     129
    123130(defgeneric total-degree (object))
    124131(defmethod  ring-divides-p (object1 object2))
Note: See TracChangeset for help on using the changeset viewer.