- Timestamp:
 - 2015-06-10T09:31:42-07:00 (10 years ago)
 - File:
 - 
      
- 1 edited
 
- 
          
  branches/f4grobner/5am-tests.lisp (modified) (1 diff)
 
 
Legend:
- Unmodified
 - Added
 - Removed
 
- 
      
branches/f4grobner/5am-tests.lisp
r1078 r1079 197 197 (is (equalp (with-input-from-string (s "x^2+y^2") (poly-reader '(x y) s) 198 198 (make-poly-from-termlist (list (make-term (make-monom :initial-exponents '(2 0)) 1) 199 (make-term (make-monom :initial-exponents '(0 2)) 1))))) 199 (make-term (make-monom :initial-exponents '(0 2)) 1)))))) 200 200 (is (equalp 201 201 (print (with-input-from-string (s "[x^2-y^2+(-4/3)*u^2*w^3-5,y]")  
  Note:
 See   TracChangeset
 for help on using the changeset viewer.
  