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


Ignore:
Timestamp:
2015-06-18T11:11:58-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/monom.lisp

    r2227 r2228  
    7070
    7171(defmethod make-instance ((self monom)
    72                           &key
     72                          &rest args
     73                          &key
    7374                            (dimension nil dimension-suppied-p)
    7475                            (exponents nil exponents-supplied-p)
    75                             (exponent  nil exponent-supplied-p))
     76                            (exponent  nil exponent-supplied-p)
     77                          &allow-other-keys
     78                            )
    7679  "A constructor (factory) of monomials. If DIMENSION is given, a
    7780sequence of DIMENSION elements of type EXPONENT is constructed, where
     
    7982to 0.  Alternatively, all elements may be specified as a list
    8083EXPONENTS."
    81   (format t "MAKE-INSTANCE called with DIMENSION ~A(~A), EXPONENTS ~A(~A), EXPONENT ~A(~A).~%"
    82           dimension dimension-suppied-p
    83           exponents exponents-supplied-p
    84           exponent exponent-supplied-p)
    85   (call-next-method :dimension dimension :exponents exponents))
     84  (format t "MAKE-INSTANCE called with args ~A).~%" args)
     85  (call-next-method))
    8686
    8787  #|
Note: See TracChangeset for help on using the changeset viewer.