close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 874 for branches/f4grobner


Ignore:
Timestamp:
2015-06-09T11:51:26-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/monomial.lisp

    r873 r874  
    159159  (every #'= (monom-exponents m1) (monom-exponents m2)))
    160160
    161 (defun monom-lcm (m1 m2 &aux (result (copy-sequence m1)))
     161(defun monom-lcm (m1 m2 &aux (result (copy-seq m1)))
    162162  "Returns least common multiple of monomials M1 and M2."
    163163  (map-into result #'max m1 m2))
    164164
    165 (defun monom-gcd (m1 m2 &aux (result (copy-sequence m1)))
     165(defun monom-gcd (m1 m2 &aux (result (copy-seq m1)))
    166166  "Returns greatest common divisor of monomials M1 and M2."
    167167  (map-into result #'min m1 m2))
     
    171171  (plusp (monom-elt m k)))
    172172
    173 (defmacro monom-map (fun m &rest ml &aux (result `(copy-sequence ,m)))
     173(defmacro monom-map (fun m &rest ml &aux (result `(copy-seq ,m)))
    174174  `(map-into ,result ,fun ,m ,@ml))
    175175
Note: See TracChangeset for help on using the changeset viewer.