Changeset 4276
- Timestamp:
- 2016-06-04T21:00:08-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r4275 r4276 305 305 ;;(format t "R:~A~%" r) 306 306 ))) 307 308 (defgeneric subtract-from (self other)309 (:documentation "Subtract OTHER from SELF.")310 (:method ((self number) (other number))311 (- self other))312 (:method ((self poly) (other number))313 (subtract-from self (make-poly-constant (poly-dimension self) other))))314 315 307 316 308 #|
Note:
See TracChangeset
for help on using the changeset viewer.