- Timestamp:
- 2015-06-14T20:28:07-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/mx-grobner.lisp
r1648 r1649 145 145 ((symbolp order) 146 146 (case order 147 ((lex :lex $lex #:lex) #'lex>) 148 ((grlex :grlex $grlex #:grlex) #'grlex>) 149 ((grevlex :grevlex $grevlex #:grevlex) #'grevlex>) 150 ((invlex :invlex $invlex #:invlex) #'invlex>) 147 ((lex :lex $lex #:lex) 148 #'lex>) 149 ((grlex :grlex $grlex #:grlex) 150 #'grlex>) 151 ((grevlex :grevlex $grevlex #:grevlex) 152 #'grevlex>) 153 ((invlex :invlex $invlex #:invlex) 154 #'invlex>) 151 155 (otherwise 152 156 (mtell "~%Warning: Order ~M not found. Using default.~%" order))))
Note:
See TracChangeset
for help on using the changeset viewer.