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