- Timestamp:
- 2015-06-16T17:03:06-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/pol.lisp
r2002 r2003 149 149 algebra system could be called 'expand' or so." 150 150 (cond 151 ((null expr) (error "Empty expression")) 151 ((null expr) 152 (error "Empty expression")) 152 153 ((eql expr 0) (make-poly-zero)) 153 154 ((member expr vars :test #'equalp)
Note:
See TracChangeset
for help on using the changeset viewer.