- Timestamp:
- 2016-06-06T12:27:27-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r4325 r4336 309 309 (with-slots ((exponents2 exponents)) 310 310 m2 311 312 313 311 (let* ((exponents (copy-seq exponents1))) 312 (map-into exponents #'max exponents1 exponents2) 313 (make-instance 'monom :exponents exponents)))))) 314 314 315 315
Note:
See TracChangeset
for help on using the changeset viewer.