Changeset 4114
- Timestamp:
- 2016-06-01T13:49:18-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r4111 r4114 92 92 (format stream "DIMENSION=~A TERMLIST=~A ORDER=~A" 93 93 dimension termlist order)))) 94 95 (defmethod copy-instance :around ((object poly) &rest initargs &key &allow-other-keys) 96 "An :AROUND method of COPY-INSTANCE. It replaces term with a fresh copy of the TERMLIST." 97 (declare (ignore object initargs)) 98 (let ((copy (call-next-method))) 99 (with-slots (termlist) 100 copy 101 (setf termlist (mapcar #'copy-instance termlist))) 102 copy)) 103 94 104 95 105 (defgeneric change-term-order (self other)
Note:
See TracChangeset
for help on using the changeset viewer.