Changeset 3199
- Timestamp:
- 2015-06-22T18:41:22-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r3198 r3199 47 47 (defmethod print-object ((self term) stream) 48 48 (print-unreadable-object (self stream :type t :identity t) 49 (with-accessors ((dimension monom-dimension) 50 (exponents monom-exponents) 51 (coeff scalar-coeff)) 52 (format stream "DIMENSION=~A EXPONENTS=~A COEFF=~A" 53 dimension 54 exponents 55 coeff)))) 49 (format stream "DIMENSION=~A EXPONENTS=~A COEFF=~A" 50 (slot-value self 'dimension) 51 (slot-value self 'exponents) 52 (slot-value self 'coeff)))) 56 53 57 54
Note:
See TracChangeset
for help on using the changeset viewer.