Changeset 1988
- Timestamp:
- 2015-06-16T00:26:28-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/pol.lisp
r1987 r1988 116 116 (slot-value poly 'termlist)) 117 117 118 (defmethod (setf poly-termlist) ( (poly poly) value)119 (setf (slot-value poly 'termlist) value))118 (defmethod (setf poly-termlist) (new-value (poly poly)) 119 (setf (slot-value poly 'termlist) new-value)) 120 120 121 121 ;; Leading term … … 123 123 124 124 ;; Second term 125 (defmacro poly-second-lt (p) `(cad ar (poly-termlist ,p)))125 (defmacro poly-second-lt (p) `(cadr (poly-termlist ,p))) 126 126 127 127 ;; Leading monomial
Note:
See TracChangeset
for help on using the changeset viewer.