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 4040 for branches


Ignore:
Timestamp:
2016-05-31T16:47:49-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r4039 r4040  
    646646              (t
    647647               (cons '* m))))))
    648   (:method ((self term) &optional vars)
     648  (:method :around ((self term) &optional vars)
    649649    "Convert a term SELF to infix form, using variable VARS to build the representation."
    650650    (declare (ignore vars))
    … …  
    653653      (let ((m (call-next-method)))
    654654        (cond ((eql coeff 1) m)
     655              ((atom m)
     656               (cond ((eql m 1) coeff)
     657                     (t (list '* coeff m))))
    655658              ((eql (car m) '*) (list* '* coeff (cdr m)))
    656659              (t
    657                (list* '* coeff m)))
    658         m))))
     660               (list* '* coeff m)))))))
Note: See TracChangeset for help on using the changeset viewer.