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 2215


Ignore:
Timestamp:
2015-06-18T10:36:40-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/monom.lisp

    r2214 r2215  
    6464  (princ (slot-value m 'exponents) stream))
    6565
    66 (defmethod initialize-instance :after ((self monom)
    67                                        &key
    68                                         (dimension nil dimension-suppied-p)
    69                                         (exponents nil exponents-supplied-p)
    70                                         (exponent  nil exponent-supplied-p))
     66(defmethod initialize-instance ((self monom)
     67                                &key
     68                                  (dimension nil dimension-suppied-p)
     69                                  (exponents nil exponents-supplied-p)
     70                                  (exponent  nil exponent-supplied-p))
    7171  "A constructor (factory) of monomials. If DIMENSION is given, a
    7272sequence of DIMENSION elements of type EXPONENT is constructed, where
     
    7474to 0.  Alternatively, all elements may be specified as a list
    7575EXPONENTS."
    76   (format t "INITIALIZE-INSTANCE called with SELF ~A, DIMENSION ~A(~A), EXPONENTS ~A(~A), EXPONENT ~A(~A).~%"
    77           self dimension dimension-suppied-p
     76  (format t "INITIALIZE-INSTANCE called with DIMENSION ~A(~A), EXPONENTS ~A(~A), EXPONENT ~A(~A).~%"
     77          dimension dimension-suppied-p
    7878          exponents exponents-supplied-p
    7979          exponent exponent-supplied-p)
     80  #|
    8081  (let ((new-dimension (cond (dimension-suppied-p dimension)
    8182                             (exponents-supplied-p
     
    9596                          (t
    9697                           (make-array (list dimension) :element-type 'exponent :initial-element 0)))))
    97 ))
     98  |#
     99  (call-next-method))
    98100
    99101;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note: See TracChangeset for help on using the changeset viewer.