Changeset 3304
- Timestamp:
- 2015-06-23T09:26:10-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r3303 r3304 94 94 (when (and (slot-boundp self 'dimension) 95 95 (/= (slot-value self 'dimension) dim)) 96 (error "EXPONENTS must have length DIMENSION")) 96 (warn "Changing slot DIMENSION ~A to match the length of EXPONENTS ~A" 97 (slot-value self 'dimension) (length exponents))) 97 98 (setf (slot-value self 'dimension) dim 98 99 (slot-value self 'exponents) (make-array dim :initial-contents exponents))
Note:
See TracChangeset
for help on using the changeset viewer.