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.
| Rev | Line | |
|---|
| [4447] | 1 | (in-package :polynomial)
|
|---|
| 2 |
|
|---|
| 3 | (proclaim '(special x y))
|
|---|
| 4 |
|
|---|
| 5 | (setf x (alist->poly '( ((3) . 1) ((1) . 2))))
|
|---|
| 6 | (setf y (alist->poly '( ((2) . 3) ((1) . 4))))
|
|---|
| 7 |
|
|---|
| [4461] | 8 | (print (->sexp x '(x)))
|
|---|
| 9 | (print (->sexp y '(x)))
|
|---|
| [4447] | 10 |
|
|---|
| [4461] | 11 | (print (->sexp (add-to x y) '(x)))
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
Download in other formats:
