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 4026 for branches/f4grobner


Ignore:
Timestamp:
2016-05-31T15:27:21-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r4025 r4026  
    616616               self
    617617             (assert (= (length vars) (length exponents))
    618                      (vars exponents)
     618                     nil
    619619                     "Variables ~A and exponents ~A must have the same length." vars exponents)))
    620620  (:method ((self monom) &optional vars)
    … …  
    627627                                       (t (list `(expt ,var ,power)))))
    628628                       vars (coerce exponents 'list))))
    629         (print m)
    630629        (cond ((endp m) 1)
    631630              ((endp (cdr m)) (car m))
    … …  
    638637        self
    639638      (let ((m (call-next-method)))
    640         (print m)
    641         (cond ;;((= coeff 1) m)
    642               ;;((eql (car m) '*) (list* '* coeff (cdr m)))
     639        (cond ((= coeff 1) m)
     640              ((eql (car m) '*) (list* '* coeff (cdr m)))
    643641              (t
    644642               (list* '* coeff m)))
Note: See TracChangeset for help on using the changeset viewer.