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.

source: branches/f4grobner/test0.lisp@ 4196

Last change on this file since 4196 was 4170, checked in by Marek Rychlik, 8 years ago

Moved files infix-errors* to junk

File size: 450 bytes
Line 
1(in-package :polynomial)
2(setf p (ADD-TO
3 (make-instance 'poly :dimension 1 :termlist (list (make-instance 'term :exponents #(0) :coeff 5)) :order #'lex>)
4 (make-instance 'poly :dimension 1 :termlist (list (make-instance 'term :exponents #(1) :coeff 1)) :order #'lex>)))
5
6(setf r (POLYNOMIAL::ADD-TERMLISTS (list (make-instance 'term :exponents #(0) :coeff 5))
7 (list (make-instance 'term :exponents #(1) :coeff 1))
8 #'lex>))
9(print r)
Note: See TracBrowser for help on using the repository browser.