Changeset 3324
- Timestamp:
- 2015-06-23T10:17:45-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r3323 r3324 230 230 (with-slots ((exponents2 exponents)) 231 231 m2 232 (let* ((exponents (copy-seq exponents1)) 233 (dimension dimension1)) 232 (let* ((exponents (copy-seq exponents1))) 234 233 (map-into exponents #'max exponents1 exponents2) 235 234 (make-instance 'monom :exponents exponents)))))
Note:
See TracChangeset
for help on using the changeset viewer.