Changeset 3211
- Timestamp:
- 2015-06-22T18:59:40-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r3205 r3211 44 44 (:documentation "Implements a term, i.e. a product of a scalar 45 45 and powers of some variables, such as 5*X^2*Y^3.")) 46 47 (defmethod print-object ((self term) stream) 48 (print-unreadable-object (self stream :type t :identity t) 49 (format stream "DIMENSION=~A EXPONENTS=~A COEFF=~A" 50 (slot-value self 'dimension) 51 (slot-value self 'exponents) 52 (slot-value self 'coeff)))) 53 54 55 46 56 47 57 (defmethod r-equalp ((term1 term) (term2 term))
Note:
See TracChangeset
for help on using the changeset viewer.