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 4521


Ignore:
Timestamp:
2016-06-17T14:09:39-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r4499 r4521  
    167167     (cons :[ (mapcar #'poly->alist (cdr p))))))
    168168
    169 
    170 #+nil
    171 (defmethod shared-initialize :after ((self poly) slot-names
    172                                      &rest initargs
    173                                      &key)
    174   "If TERMLIST is supplied and non-empty, and DIMENSION is NIL, set
    175 the dimension to the dimension of the first term in TERMLIST."
    176   (declare (ignore initargs))
    177   (let ((dims (mapcar #'monom-dimension (slot-value self 'termlist))))
    178     (format t "Dimensions: ~A~%" dims)
    179     (assert (apply #'= dims))
    180     (unless (endp dims)
    181       (setf (slot-value self 'dimension) (car dims))))
    182   self)
    183169
    184170(defmethod update-instance-for-different-class :after ((old term) (new poly) &key)
Note: See TracChangeset for help on using the changeset viewer.