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 3328 for branches/f4grobner


Ignore:
Timestamp:
2015-06-23T10:25:48-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/monom.lisp

    r3327 r3328  
    6767              exponents))))
    6868
    69 ;; The following INITIALIZE-INSTANCE method allows instance
    70 ;; initialization in a style similar to MAKE-ARRAY, e.g.
    71 ;;
    72 ;; (MAKE-INSTANCE :EXPONENTS '(1 2 3))      --> #<MONOM EXPONENTS=#(1 2 3)>
    73 ;; (MAKE-INSTANCE :DIMENSION 3)             --> #<MONOM EXPONENTS=#(0 0 0)>
    74 ;; (MAKE-INSTANCE :DIMENSION 3 :EXPONENT 7) --> #<MONOM EXPONENTS=#(7 7 7)>
    75 ;;
    7669(defmethod initialize-instance :after ((self monom)
    7770                                       &key
     
    8174                                       &allow-other-keys
    8275                                       )
     76  "The following INITIALIZE-INSTANCE method allows instance initialization in a style similar to MAKE-ARRAY, e.g.
     77
     78 (MAKE-INSTANCE :EXPONENTS '(1 2 3))      --> #<MONOM EXPONENTS=#(1 2 3)>
     79 (MAKE-INSTANCE :DIMENSION 3)             --> #<MONOM EXPONENTS=#(0 0 0)>
     80 (MAKE-INSTANCE :DIMENSION 3 :EXPONENT 7) --> #<MONOM EXPONENTS=#(7 7 7)>
     81"
    8382  (cond
    8483    (exponents-supplied-p
Note: See TracChangeset for help on using the changeset viewer.