Changeset 2221 for branches/f4grobner
- Timestamp:
- 2015-06-18T10:57:33-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2220 r2221 64 64 (princ (slot-value m 'exponents) stream)) 65 65 66 #| 66 67 (defmethod initialize-instance :after ((self monom) &rest args &key) 67 68 (format t "INITIALIZE-INSTANCE-INSTANCE called with SELF ~A, args ~A.~%" 68 69 self args) 69 70 (call-next-method)) 71 |# 70 72 71 73 … … 84 86 exponents exponents-supplied-p 85 87 exponent exponent-supplied-p) 88 (call-next-method :dimension dimension :exponents exponents)) 89 86 90 #| 87 91 (let ((new-dimension (cond (dimension-suppied-p dimension) … … 103 107 (make-array (list dimension) :element-type 'exponent :initial-element 0))))) 104 108 |# 105 (call-next-method :dimension dimension :exponents exponents)) 109 106 110 107 111 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note:
See TracChangeset
for help on using the changeset viewer.