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


Ignore:
Timestamp:
2016-06-11T08:35:41-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r4445 r4446  
    517517
    518518(defmethod shared-initialize :around ((self term) slot-names &rest initargs &key (coeff 1))
    519   "A convenience method. If a coefficient is an integer or rational, wrap it in
    520 the INTEGER-RING or RATIONAL-FIELD object, respectively."
     519  "A convenience method, implementing auto-wrapping of integer and
     520rational coefficients into a RING object. If a coefficient is an
     521integer or rational, wrap it in the INTEGER-RING or RATIONAL-FIELD
     522object, respectively."
    521523  ;; Dispatch on the type of supplied :COEFF arg
    522524  (typecase coeff
    … …  
    529531
    530532(defmethod (setf term-coeff) :after (new-value (object term))
    531   "A conveniense method. If an integer or rational value is assigned to the slot,
    532 it is wrapped into an INTEGER-RING or RATIONAL-FIELD object, respectively."
     533  "A conveniense method, implementing auto-wrapping of integer and
     534rational coefficients into a RING object. Upon setting the COEFF slot,
     535if an integer or rational value is assigned to the slot, it is wrapped
     536into an INTEGER-RING or RATIONAL-FIELD object, respectively."
    533537  (with-slots (coeff)
    534538      object
Note: See TracChangeset for help on using the changeset viewer.