Changeset 4492
- Timestamp:
- 2016-06-15T21:16:30-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r4463 r4492 375 375 |# 376 376 377 ;; Getter/setter of leading coefficient 378 (defun lc (x) (term-coeff (car x))) 379 (defun (setf lc) (new-value x) (setf (term-coeff (car x)) new-value)) 380 377 ;; Shorthand for leading coefficient of a termlist 378 (defmacro lc (x) `(term-coeff (car ,x))) 381 379 382 380 (defun slow-add (p q order-fn add-fn)
Note:
See TracChangeset
for help on using the changeset viewer.