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


Ignore:
Timestamp:
2015-06-18T10:57:33-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r2220 r2221  
    6464  (princ (slot-value m 'exponents) stream))
    6565
     66#|
    6667(defmethod initialize-instance :after ((self monom) &rest args &key)
    6768  (format t "INITIALIZE-INSTANCE-INSTANCE called with SELF ~A, args ~A.~%"
    6869          self args)
    6970  (call-next-method))
     71|#
    7072         
    7173
    … …  
    8486          exponents exponents-supplied-p
    8587          exponent exponent-supplied-p)
     88  (call-next-method :dimension dimension :exponents exponents))
     89
    8690  #|
    8791  (let ((new-dimension (cond (dimension-suppied-p dimension)
    … …  
    103107                           (make-array (list dimension) :element-type 'exponent :initial-element 0)))))
    104108  |#
    105   (call-next-method :dimension dimension :exponents exponents))
     109
    106110
    107111;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note: See TracChangeset for help on using the changeset viewer.