Changeset 4069 for branches/f4grobner
- Timestamp:
 - 2016-05-31T19:16:37-07:00 (9 years ago)
 - File:
 - 
      
- 1 edited
 
- 
          
  branches/f4grobner/monom.lisp (modified) (1 diff)
 
 
Legend:
- Unmodified
 - Added
 - Removed
 
- 
      
branches/f4grobner/monom.lisp
r4045 r4069 228 228 (cond ((endp factors) 1) 229 229 ((endp (rest factors)) (first factors)) 230 (t (reduce #'multiply-2 factors :initial-value 1))))230 (t (reduce #'multiply-2 factors)))) 231 231 232 232 (defgeneric unary-inverse (self)  
  Note:
 See   TracChangeset
 for help on using the changeset viewer.
  