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 3217


Ignore:
Timestamp:
2015-06-22T19:42:03-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/term.lisp

    r3215 r3217  
    5959       (= (monom-dimension term1) (monom-dimension term2))
    6060       (equalp (monom-exponents term1) (monom-exponents term2))))
    61 
    62 #|
    63 (defmethod shared-initialize ((self term) slot-names
    64                               &rest
    65                                 initargs
    66                               &key
    67                                 coeff
    68                                 &allow-other-keys)
    69   (declare (ignore initargs))
    70   (if (eq slot-names t) (setf slot-names '(coeff)))
    71   (dolist (slot-name slot-names)
    72     (case slot-name
    73       (coeff
    74        (setf (slot-value self 'coeff) coeff)))))
    75 |#
    7661
    7762(defmethod update-instance-for-different-class :after ((old monom) (new  scalar) &key)
Note: See TracChangeset for help on using the changeset viewer.