- Timestamp:
- 2015-06-23T08:57:54-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r3293 r3294 99 99 (when (and exponent-supplied-p (slot-accessible-p 'exponents)) 100 100 (unless (slot-boundp self 'dimension) 101 (error "Slot DIMENSION is unbound ."))101 (error "Slot DIMENSION is unbound, but must be known if EXPONENT is supplied.")) 102 102 (let ((dim (slot-value self 'dimension))) 103 103 (setf (slot-value self 'exponents)
Note:
See TracChangeset
for help on using the changeset viewer.