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.

Changeset 620


Ignore:
Timestamp:
2015-06-07T00:15:41-07:00 (10 years ago)
Author:
Marek Rychlik
Message:
 
Location:
branches/f4grobner
Files:
1 deleted
2 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/5am-tests.lisp

    r614 r620  
    136136  "Parser"
    137137  (let (($f '((MLIST SIMP) ((MPLUS SIMP) $X ((MTIMES SIMP) -1 $Y)) ((MPLUS SIMP) $X $Y)))
    138         ($v ((MLIST SIMP) $X $Y)))
    139     (parse-poly-list $f $v)))
     138        ($v '((MLIST SIMP) $X $Y)))
     139    (is-true (parse-poly-list $f $v))))
    140140
    141141

  • branches/f4grobner/ngrobner.lisp

    r513 r620  
    6262(defvar *ratdisrep-fun* #'identity
    6363  "A function applied to polynomials after conversion to Maxima representation.")
    64 
    65 
    66 
    67 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    68 ;;
    69 ;; This is how we perform operations on coefficients
    70 ;; using Maxima functions.
    71 ;;
    72 ;; Functions and macros dealing with internal representation structure
    73 ;;
    74 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    75 
    76 
    7764
    7865;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note: See TracChangeset for help on using the changeset viewer.