- Timestamp:
- 2016-06-17T14:09:39-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r4499 r4521 167 167 (cons :[ (mapcar #'poly->alist (cdr p)))))) 168 168 169 170 #+nil171 (defmethod shared-initialize :after ((self poly) slot-names172 &rest initargs173 &key)174 "If TERMLIST is supplied and non-empty, and DIMENSION is NIL, set175 the dimension to the dimension of the first term in TERMLIST."176 (declare (ignore initargs))177 (let ((dims (mapcar #'monom-dimension (slot-value self 'termlist))))178 (format t "Dimensions: ~A~%" dims)179 (assert (apply #'= dims))180 (unless (endp dims)181 (setf (slot-value self 'dimension) (car dims))))182 self)183 169 184 170 (defmethod update-instance-for-different-class :after ((old term) (new poly) &key)
Note:
See TracChangeset
for help on using the changeset viewer.