- Timestamp:
- 2015-06-06T20:29:14-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/ngrobner.lisp
r443 r467 60 60 list of terms in the current monomial order rather than a Maxima general expression.") 61 61 62 (defvar $poly_grobner_debug nil63 "If set to TRUE, produce debugging and tracing output.")64 65 62 (defvar $poly_grobner_algorithm '$buchberger 66 63 "The name of the algorithm used to find grobner bases.") … … 84 81 ;; 85 82 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 86 87 88 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;89 ;;90 ;; Debugging/tracing91 ;;92 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;93 (defmacro debug-cgb (&rest args)94 `(when $poly_grobner_debug (format *terminal-io* ,@args)))95 83 96 84
Note:
See TracChangeset
for help on using the changeset viewer.